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ABSTRACT 


The  non -equilibrium  diffusion  approximation  to  the  radiative-transfer 
equation  is  developed.  The  first  two  moments  of  the  radiative  transfer 
equation,  including  Thomson  scattering  and  pure  absorption,  are  fo.med, 
and  the  equations  are  closed  by  a  relation  between  the  radiation  energy 
and  pressure.  Applications  of  SPUTTER  non- equilibrium  diffusion  sub¬ 
routines  to  several  simple  radiative -transfer  problems  are  described  and 
compared  with  results  from  other  numerical  radiative -transfe r  codes. 
Subroutines  are  also  described  which  calculate  the  effect  of  Thomson 
scattering  in  TAMALE.  The  method  of  moments,  the  method  of  discrete 
ordinates  or  characteristics,  and  the  Monte  Carlo  method  are  described 
with  special  reference  to  the  calculation  of  radiative  transport  in  two 
dimensions.  Their  relative  merits  are  discussed,  and  considerations 
bearing  on  the  choice  of  which  to  use  in  various  applications  are  given. 

The  non- equilibrium  diffusion  approximation,  which  is  the  variant  of  the 
moments  method  used  in  DRADTN  and  ERADTN,  has  been  extended  to 
axially  symmetric  configurations  of  two  dimensions  ir.  a  new  program, 
TDRAD.  The  method  of  characteristics  has  been  programmed  for  the 
same  geometry  as  that  treated  by  TDRAD.  The  new  code,  TRAN2 . 
extends  TDRAD  to  situations  in  which  the  radiation  is  too  anisotropic  to 
be  described  by  only  two  moments  The  problem  of  averaging  absorption 
coefficients  and  scattering  cross  sections  is  a  basic  one  in  any  calculation 
of  radiative  transport.  A  proposed  solution  is  formulated,  and  transmission 
functions  are  derived  for  the  case  where  opacities  may  be  considered 
piecewise  constant  in  space  and  frequency. 

(Distribution  Limitation  Statement  No.  2) 
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SECTION  I 

NONEQUILIBRIUM  DIFFUSION  METHODS  FOR  SPUTTER 

1.  1.  INTRODUCTION 

Solutions  of  the  radiation  transport  equation  are  required  in  a  sub¬ 
stantial  number  of  problems  involving  the  transport  of  energy  in  high-tem- 
perature  gases.  In  this  report,  numerical  solutions  to  some  sample  prob¬ 
lems  are  obtained  by  a  method  known  as  the  non-equilibrium  diffusion  ap¬ 
proximation.  Comparison  with  numerical  solutions  gives  an  indication  of 
the  usefulness  of  the  method. 

An  explicit  formulation  of  the  non-equilibrium  diffusion  equations  for 

* 

slab  geometry  and  pure  absorption  has  been  tested  (Ref.  1)  and  found  to  con¬ 
stitute  a  useful  approximation  to  slab  penetration  problems  in  the  grey 
atmosphere  approximation.  Additional  tests  of  the  time  independent  dif¬ 
fusion  equations  have  been  made  (Ref.  2)  by  comparison  with  transport  solutions 
of  Milne  problems.  Independently,  the  differential  non- equilibrium  dif¬ 
fusion  equations  have  been  derived  for  the  case  of  radiation  interaction 
through  Compton  scattering  (Ref.  3).  The  possibility  of  using  the  Rosseland  and 
Planck  mean  opacities,  of  performing  multigroup  calculations,  and  of 
formulating  the  difference  equations  in  partially  implicit  and  fully  implicit 
(unconditionally  stable)  forms  has  also  been  noted  (Ref.  4).  Consequently,  the 
method  can  be  expected  to  provide  generally  applicable  approximate  equa¬ 
tions  that  can  be  solved  economically  for  one-dimensional  geometries  and 
ultimately  two-dimensional  geometries. 

In  this  report,  derivation  of  the  differential  equations  is  presented 
(Section  1.  2),  and  then  these  equations  are  formulated  in  difference  form 
(Section  1.  3)  for  the  one-dimensional  geometries  (slabs,  cylinders, 
spheres).  The  code  has  been  incorporated  as  a  subroutine  into  the 
SPUTTER  code,  a  one-dimensional,  radiation  transport  —  hydrodynamics 

’’‘References  appear  at  the  end  of  each  section. 
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code  applicable  to  many  high-energy  flow  phenomena.  The  subroutine  can 
perform  either  grey  or  multifrequency  group  problems  and  contains  op¬ 
tions  for  determining  whether  partially  or  fully  implicit  equations  are 
solved.  The  nonlinear  coefficients  of  the  equations  may  be  formed  more 
accurately  by  exercising  the  option  to  iterate  the  equations  to  time-center 
the  coefficients.  At  the  outside  boundaries  of  the  mesh,  the  following  op¬ 
tions  can  be  selected:  (1)  zero  net  flux  (reflection),  (2)  zero  backward 
current  (vacuum),  and  (3)  prescribed  backward  current  (frequency  the 
blackbody  boundary  condition).  Two  versions  of  the  code  are  atailable  as 
separate  subroutines.  The  DRADTN  subroutine  (see  Section  1.  7  for  the 
FORTRAN  listing)  includes  the  effects  of  radiation  retardation  (energy 
stored  in  the  radiation  field  and  the  propagation  of  light  waves),  and  is 
particularly  applicable  to  problems  involving  temperature®  in  the  kev 
range,  where  temperature  waves  propagate  at  near  light  speed.  For  prob¬ 
lems  involving  temperatures  in  the  ev  range,  in  which  changes  are  slow  com¬ 
pared  with  the  light  speed,  a  more  economical  and  accurate  code  is  the 
ERADTN  version  (see  Section  1.  7  for  the  FORTRAN  listing),  which  omits 
the  retardation  terms. 

In  Section  1. 4,  features  of  the  codes  of  special  interest  to  the  user 
are  discussed.  A  glossary  of  terms  appearing  in  the  code  is  also  pre¬ 
sented  in  that  section,  and  particular  attention  is  given  to  the  quantities 
which  must  be  supplied  to  control  the  code.  Values  for  the  control  quanti¬ 
ties  are  recommended,  and  the  effects  of  deviations  from  them  are 
discussed. 

In  the  slab  and  spherical  geometry,  radiation  transport  subroutines 
for  SPUTTER  are  available  (Ref.  5).  Two  of  these  subroutines,  called  PRADTN 
(for  plane  radiation)  and  SRADTN  (for  spherical  radiation),  have  been 
used  to  perform  a  series  of  test  problems  (see  Section  1.5)  having  rela¬ 
tively  simple  initial  conditions  and  material  properties.  Comparison  with 
the  solution  of  the  corresponding  problem  using  DRADTN  and  ERADTN 
indicates  the  error  to  be  expected  when  similar  problems  are  calculated. 
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An  attempt  is  made  to  isolate  the  effects  of  the  form  of  the  difference 
equations  from  the  different  treatments  of  the  frequency  dependence. 

1  _  2.  DIFFERENTIAL  EQUATIONS  OF  NON- EQUILIBRIUM  DIFFUSION 

The  equations  of  non-equilibrium  diffusion  are  the  first  two  moment 
equations  of  the  radiation  transport  equation.  In  this  section,  those  equa¬ 
tions  are  derived  independently  of  the  coordinate  system.  They  are  thus 
applicable  to  two-  and  three-dimensional  radiation  flow  problems,  but  will 
be  specialized  to  the  one-dimensional  geometries. 

The  point  of  departure  is  the  radiation  transport  equation  for  the^ 
intensity  I  at  position  r  at  time  t  in  the  direction  specified  by  the  unit  vec¬ 
tor  .  Interaction  of  the  radiation  with  the  material  is  characterized  by 
the  coefficient  for  pure  absorption  H  and  the  scattering  coefficient  Mg. 

When  the  source  function  is  approximated  by  the  local  thermodynamic 
equilibrium  assumption  in  terms  of  the  Planck  function  B,  and  scattering 
is  given  by  the  Thomson  limit  of  the  Compton  cross  section,  the  transport 
equation  is  as  follows: 

c  ft  +  **  *  VI  =  Ma  (B  "  r)  "  M8Z  +  15?/ d0'[  1  +  I  r  (1) 

where  I'  is  the  intensity  in  the  direction  O'.  The  frequency  dependence 
has  been  suppressed,  since  in  the  Thomson  limit  in  which  scattering  occurs 
without  frequency  shift,  Eq.  (II  applies  to  a  single  frequency.  The  polari¬ 
zation  of  the  photons  has  also  been  neglected  by  averaging  the  scattering 
integral  over  polarization  in  the  supposedly  unpolarized  incident  beam. 

On  the  boundaries  of  the  system,  the  transport  equation  must  be 
supplemented  with  a  specification  of  the  intensity  of  all  rays  passing  through 
the  boundary  from  outside  to  inside.  That  is,  I(S2 )  =  Iq  if  *  N  <  0,  where 
N  is  a  vector  normal  to  the  surface  directed  outward. 

Moments  of  the  radiation  intensity  are  obtained  by  integrating  powers 
of  0  over  the  entire  solid  angle.  The  radiation  energy  scalar  E,  the 
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approximation  employed  above  depends  on  temperature  only  through  the 
density  of  free  elections, 

8tt  2  -1 

H  =  — r  N  (cm  ) 
s  3  o  e 

- 13 

where  r  is  the  classical  electron  radius  (=  2.  8  x  10  cm)  and  N  is  the 

°  -3  C 

free  electron  density  (cm  ).  In  practice,  p  is  negligible  compared  A/ith 

8 

H  if  temperatures  are  not  sufficiently  large  to  produce  substantially  com- 

3i 

plete  ionization.  Consequently,  the  assumption  of  the  temperature  inde¬ 
pendence  of  n  is  an  excellent  approximation.  Changes  in  material  tern- 
8 

perature  are  assumed  to  take  place  under  the  combined  effects  of  radia¬ 
tion  absorption  or  emission,  hydrodynamic  motions  of  the  material,  and 
energetic  sources  within  the  material. 

1.  3.  DIFFERENCE  EQUATIONS  AND  BOUNDARY  CONDITIONS 

By  specializing  the  equations  given  in  Section  1.  2  to  one  spatial 
dimension,  the  one-dimensional  non-equilibrium  diffusion  equations  are 
obtained: 

!~+  — V  (ar"-1  F)  =  cm  (4ttB  -  E) 

8t  9ra  a 

(10) 

I  8F  c  8E  F 
c  8t  +  3  8r  =  "  \ 

where  the  geometry  coefficient  a  takes  tie  value  1,  2,  or  3,  corresponding 
to  slab,  cylinder,  or  sphere,  respectively. 

1.  3.  1.  Spatial  Difference  Equations 

These  equations  are  to  be  replaced  by  approximating  difference  equa¬ 
tions  in  a  way  dictated  by  accuracy,  stability,  and  ease  of  computing.  The 
quantities  in  Eq.  (10)  are  associated  with  zonal  boundaries  or  interiors  as 
suggested  by  an  integration  of  the  first  equation  over  the  zone.  The  re¬ 
sulting  equation  describing  the  conservation  of  energy  16  given  by 
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9E, 


i till,  _ I _ (Fi+l  -  Fi>  =  c  ^,a)i+l/2(47rBifl/2-Ei+l/2)  (U) 


8t 


a  a 

r  -  r 

i+l  i 


~  n  _  1  .  th  ,  . 

where  F  -  a  r  F.,  corresponds  to  the  flux  at  the  l  zone  boundary 
i  i  i 

integiated  over  the  surface  area.  Difference  equation  (11)  is  formulated 
in  a  conservative  fashion;  i.  e. ,  radiation  flux  out  of  one  zone  enters  the 
neighboring  zone  undiminished.  The  quantities  with  half-integral  subscripts) 
E.  ^  and  B.+  are  averages  over  the  zone  and  are  weighted  by  the 

zone  volume.  The  second  equation  for  the  interface  flux  is  obtained  by 
approximating  the  derivative  by  a  centered  difference 


l 

c 


2c 

3 


a- 

r 


l 


(5i+l/2  '  Ei- 1/ z)_ 

r. ,  ,  -  r 
i+l  l-l 


F. 


*i 


(12) 


The  mltterial  internal  energy  (erg/g)  is  taken  to  be  a  zone-centered 

quantity  to  retain  the  centering  of  the  third  equation, 


d(Em)i+l/2_  c 
dt  P 


/  *  '"i’i+l/2  l4'Bi+l/2  ‘  E1+  1/2 


)-p|+q 


(13) 


This  equation  contains  the  pressure  P,  the  specific  volume  r,  the  density 

p,  and  the  source  q  (erg/g  sec). 

Since  the  right-hand  terms  of  Eqs.  (11)  and  (13)  represent  the 
coupling  between  radiation  and  material  energies,  it  is  important,  in  order 
to  ensure  energy  conservation,  that  the  identical  form  be  used  in  each 
equation.  Through  the  equation  of  state,  the  material  temperature  of  the 
zone  is  related  to  the  internal  energy.  In  turn,  the  Planck  function  B  and 
absorption  coefficient  p’a  (being  zone  quantities)  are  evaluated  as  functions 
of  the  zone  temperature.  The  mean  free  path  \  (an  interface  quantity) 
must  be  obtained  by  interpolation  between  the  adjacent  zonal  quantities. 
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1.  3.  2.  Temporal  Difference  Equations 

The  form  of  the  difference  equations  in  time  has  far-reaching  effects 
on  the  stability  and  ease  of  numerical  solution  of  the  system,  as  well  as 
on  its  accuracy.  Related  to  the  accuracy  of  solution  are  considerations  of 
smoothness  of  the  solution  in  time  (avoidance  of  bounded  but  slightly 
damped  oscillations)  and  positivity  of  the  radiation  energy.  In  view  of  the 
importance  of  the  time  dependence,  several  alternatives  have  been  tested, 
and  options  for  some  of  them  are  provided  in  the  subroutines. 

One  of  the  most  important  choices  is  governed  by  the  physical 
regime  in  which  the  problem  lies  The  equations  are  substantially  simpli¬ 
fied  and  their  centering  is  changed  when  the  time  dependent  terms  of 
Eqs.  (11)  and  (12)  can  be  neglected,  which  corresponds  to  omitting  the 
dl/dt  term  of  the  transport  equation.  The  equations  are  sufficiently  dif¬ 
ferent  that  separate  subroutines  have  been  written.  The  ERADTN  sub¬ 
routine  (see  Section  1.  7)  contains  the  code  without  retardation,  in  a  form 
applicable  to  problems  in  which  the  radiation  energy  is  considerably 
smaller  than  the  material  energy  and  in  which  the  light  propagation  is  un¬ 
important.  The  DRADTN  subroutine  (see  Section  1.  7)  includes  the  re¬ 


tardation  effects. 

The  equations  for  the  radiation  energy  E  in  both  of  these  codes  have 
the  form  of  linear  equations,  in  each  o(  which  three  neighboring  zones  are 
represented.  These  simultaneous  equations  can  be  solved  by  a  well-known 
algorithm  (Ref.  7)  with  very  little  labor.  The  stability  of  the  resulting  equations 
depends,  however,  onwheterEq.  (13),  the  material  energy  equation,  has 
been  solved  simultaneously  with  the  two  equations  for  the  radiation  quanti¬ 
ties.  In  turn,  the  feasibility  of  obtaining  a  fully  implicit  system  of  equa¬ 
tions  depends  on  whether  the  grey  approximation  is  made  or  several  fre¬ 
quency  groups  are  evaluated.  In  the  latter  case,  partially  implicit  equa¬ 
tions  are  obtained  with  an  associated  stability  restriction  (see  Section  1.  7). 
The  fully  implicit  equations  are  presumed  to  be  unconditionally  stable. 
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The  distinction  between  these  two  cases  will  be  made  more  precise  when 
the  equations  are  formulated  in  the  next  section.  These  equations  are 
nonlinear  through  the  dependence  of  absorption  coefficients  and  source 
functions  on  temperature. 

Since  the  method  of  solution  outlined  above  requires  a  linearization  ^ 
of  the  equations,  the  time  dependence  of  the  coefficients  is  not  taken  into 
account  within  the  time  interval  of  one  time  cycle.  To  improve  the  accu¬ 
racy,  an  iteration  may  be  performed  in  which  the  estimate  of  the  tempera¬ 
ture  change  in  the  first  step  of  the  calculation  is  used  to  re-evaluate  the 
coefficients  for  a  second  calculational  step.  Further  iterations  of  this 
cycle  are  not  desirable  since  second  order  accuracy  is  obtained  in  the 
first  iteration  (Ref.  8).  In  Section  1.3.3  the  equations  discussed  above  are 
presented  in  detail.  The  ERADTN  equations  are  given  first  in  both  the 
partially  implicit  and  fully  implicit  forms.  The  steps  required  for  itera¬ 
tion  are  also  discussed.  The  same  format  is  then  followed  for  the  DRADTN 
equations. 


1.  3.  3.  Difference  Equations  for  ERADTN  (No  Retardation) 

Without  retardation  terms,  Eqs.  (11)  and  (12)  can  be  written  at  a 
particular  time  instant.  Denoting  the  index  of  the  time  by  superscript  n, 
where  t”  =  2  At”,  the  first  two  equations  are  centered  in  time  at  t°+  * 
the  midpoint  of  the  interval,  A  t"  =  tn+  *  -  t”: 


P.  (F"+,1/2  -  Fn+1/2)  =  cd  .  lb.*.  -  En+1/2) 
11+1  1  1  J  1  1 


R. (En+1/2 
1  1 


«n+  1/2 

Fn+l/2  2A _ 

Ei-1  1  4X. 


(14) 


where  P.  =  1  /( if?  -  if?  ),  cp  .  =  a  0 .  ,  and  R.  =  cdf  r 
l  i+liTi  l  l  i 


a- 1 


/6(i 


-  r.  ).  In  the 


i+  1  ‘i-r 

above  equations  spatial  indices  have  all  been  made  integral  by  subtracting 
1/2  from  the  half-integral  indices.  This  is  the  same  convention  as  is 
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practiced  in  the  SPUTTER  code.  The  .ource  function  and  coeiiiciente 
depend  on  temperature  and,  for  accuracy  ehould  be  evaluated  a.  a  fund- 

tion  of  0  '  .  the  temperature  at  t 

The  frequency  dependence  has  been  suppressed  except  in  the  source 

term  Equations  (14)  result  from  integration  over  frequency  groups.  A. 
i.  discussed  more  fully  in  Section  1.  4,  absorption  coefficients  are  averageu 
er  the  frequency  interval,  and  the  source  function  is 


ov 


“M  i 


J  >  i 

J  47T Bdi>  =  b.  <p  . 


U3 

»here  b  is  the  normalized  partial  Planck  function. 

!  3,4,  Partially  Implicit  Equations  for  ERADTN 

the  partially  implicit  solution,  the  two  equation.  (14)  are  solved  for 
E  and  F  with  the  source  function  and  coefficient,  considered  a.  known 
quantities.  Since  in  this  approximation  the  equation,  are  linear  w, 
zero  value,  for  three  neighboring  terms,  the  equation,  for  E  become 

(suppressing  time  indices): 

(15) 


AiEi_l+  BiV  CiEt+‘+  D**° 


where 


A.  =  -4X.R.P. 

l  ill 


Ci  =  -4Xi+lRi+lPi 

B.  =  cM.  -  A.  -  C. 


(16) 


V’*"  iVi 

..  can  be  solved  for  the  temperature  change  using 

^he  energy  equation  (13)  can  b 

the  equation  of  state 
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« 


d0 .  dE 
_ 1  _  / _ m 

dt  '  dt 


3  E 
_ m 

3  T 


(17) 


where  the  specific  he?t  (ergs/(g  ev))  has  been  introduced,  to  6btain 


,n+  l 


At 


n 


„n 

0.  +  ,r  i 

i  (C  ). 
v  1 


'  (pS 


3E 


m\  dr 


3  T 


\dr  c 
idt  '  p  2 
j 


/  n+  1/2 

i. .  (  b.  a).  -  E  . . 

uV  j  » 


u 


) 


(18) 


In  Eq.  (18)  the  frequency  dependence  of  the  source  function  is  denoted  by 
the  index  j,  which  stands  for  a  partitioning  of  the  spectrum  into  frequency 
groups. 


The  order  of  the  solution  of  these  equations  is  as  follows:  First, 

Eq.  (16)  for  the  coefficients  is  evaluated  as  a  function  of  0°;  second,  Eq. 

n+ 1^2  i 

(15)  is  solved  for  E.  for  all  frequency  groups  (see  Section  1.  7);  third, 

n-f  l 

Eq.  (18)  is  used  to  find  0^  .In  the  event  that  rapid  changes  of  tempera¬ 
ture  occur  or  the  coefficients  depend  strongly  on  temperature,  an  itera¬ 
tion  can  be  performed.  The  centered  temperature  is  estimated  to  be 
n+ I /2  n  n+ 1 

0  =  (0  +  0  )/2,  which  is  used  to  re-evaluate  Eq.  (16).  The 

second  and  third  steps  of  the  calculation  are  repeated  as  above.  The  itera¬ 
tion  is  terminated  after  the  second  pass. 

The  partially  implicit  equations  can  be  employed  for  the  grey  atmos¬ 
phere  (one  frequency  group)  approximation  but  are  generally  inferior  to  the 
method  discu65'jd  below.  For  the  multigroup  approximation,  however, 
they  are  required. 


1.  3.  5.  Fully  Implicit  Equations  for  ERADTN 

For  a  single  frequency  group  (b.  =  1),  it  is  possible  to  solve  simu- 
taneously  for  the  temperature  from  Eq.  (18)  and  the  radiation  energy. 
This  is  desirable  because  the  stability  condition  required  by  the  partially 
implicit  equations  can  thereby  be  relaxed.  First,  it  is  necessary  to 
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linearizj  Eq.  '18).  Since  a0?  s  9  appears  in  Eq.  (14),  it  is  also 
cliosen  for  the  linearization  variable  of  Eq.  (18): 


4a  <>  3£*n 

n+ 1  n  i 

*i  T<pi  +  — (cT."- 


V  l 


0E  c  n  1 

m,  dr  i/ n+ 1  n  __,n+l/2\ 

q,  -  (P.  +  — )  - —fa.  +  0.  -  2E.  ) 

*i  i  8r  dt  2pVi  M  i  / 


(19) 


Second,  the  first  equation  of  Eqs.  (14)  is  rewritten  to  maintain  the  paral¬ 
lelism  between  the  energy  exchange  terms  and  to  introduce  *  : 

P.(Fn+,1/2  -  Fn+1/2)=^L  (¥>!>+1  *»"■  2En+ 1/2  )  (20) 

By  substituting  for  Fn+^^  and  <pn+  \  an  equation  of  the  form  of  Eq.  (15)  is 
is  obtained  in  which 


A.  =  -4X.R.P.  ,  C.  =  -4\.  R.  ,  ,P. 

l  ill  i  i+  1  i+  1  i 


(21) 


B.  =  A.  -  C.  + 

l  l  l 


1 


.  2a®  3Atn 

J_  +  - i - 

cMi  p(Cv). 


D.  = 

i 


0E 


/  m  \  dr 

(pi+  —)p3Tp*t 


2a  8  3it" 

i  n 

P(C  )  "9 i 

_ vj _ 


,  2a®  3 At" 

1  +  1 


a.  P(Cy). 


Solution  of  the  fully  implicit  equations  requires  evaluation  of  the  coefficients 
as  functions  of  ®n  in  Eq.  (21)  and  the  radiation  energies  in  Eq.  (15).  The 
temperature  is  obtained  last  (Eq.  (19))  and  can  be  used  for  improving  the 
accuracy  of  solution  by  iteration.  An  estimate  of  the  centered  tempera¬ 
ture  0n+  =  (®n  +  0n+S/2  is  used  to  evaluate  the  coefficients  a  second 

time;  then  a  second  evaluation  of  the  radiation  energies  is  performed. 

Since  the  time  dependence  of  the  source  term  is  taken  more  fully  into 
account  in  the  fully  implicit  equations  than  in  the  partially  implicit  ones, 
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the  former  should  be  more  accurate.  Hence,  for  grey  problems  there 
appear  to  be  no  reasons  (aside  from  code  intercomparisons)  for  perform¬ 
ing  partially  implicit  calculations. 

1  34  Difference  Equations  for  DRADTN  (Retardation  Included) 

The  spatial  dependence  of  the  DRADTN  equations  remains  ths  name 
as  for  the  ERADTN  equations,  i.  e.  ,  as  given  by  Eqs.  (11)  and  (12). 
However,  retention  of  the  time  derivative  terms  in  the  moment  equations 
imposes  additional  requirements  on  the  difference  equations.  First,  the 
possibility  of  instabilities  associated  with  the  streaming  of  radiation  and 
with  the  exchange  of  radiation  energy  and  material  energy  requires  care 
in  formulating  the  difference  equations.  Even  stable  difference  forms 
may  be  undesirable  due  to  small  damping  of  oscillations.  Second,  the 
occurrence  of  0E /  8t  and  8F/  8t  in  Eq.  (10)  suggests  that,  in  order  to 
center  the  equations  at  t"+  ^2,  quantities  at  t"(En,  F  )  be  introduced. 

With  them,  first  differences  in  time  centered  at  t  can  be  formed. 

Third,  the  consideration  of  the  conservation  of  energy  must  now  take 
account  cf  the  radiation  energy.  As  is  the  case  for  the  ERADTN  equations, 
it  is  highly  desirable  that  a  difference  analogue  of  total  energy  be  con¬ 
served  exactly  by  the  DRADTN  equations. 

With  centered  first  differences  in  time  for  the  first  derivatives  in¬ 
troduced  in  Eqs.  (11)  and  (12),  the  DRADTN  equations  corresponding  to 
Eq.  (14)  are  given  by 

x(?ui'  •  ‘ +  ~fhi  -  ~Fi)  ■  C-r<2Yi  ■  E"’ 

At 


~n+ 1 
F.  -  F. 


Fn+  1  +  Fn 


i  i  _  .pn+ 1  1  \  -  „  1  ■■■ 

1 — r~+2VEi  -h-i  +  VEi-i’' 


These  equations  employ  the  definitions  following  Eq.  (14).  Equations  (11) 
have  the  following  properties:  (1)  they  are  linear  in  E  and  F  for  ease  in 
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ii  1 1  /  z 

solution,  (2)  they  are  centered  at  t  for  accuracy,  (3)  they  conserve 

energy  in  the  sense  discussed  above,  and  (4)  they  are  expected  to  be  stable 
against  oscillations  of  the  radiation  field. 

These  equations,  which  are  further  analyzed  below,  were  the  first 
equations  to  be  coded.  As  noted  in  Section  1.6,  their  solutions  are  subject 
to  oscillations  which,  in  some  cases,  are  very  slightly  damped.  The 
equations  currently  in  use  are  discussed  later  in  this  section. 


1.  3.  7.  Partially  Implicit  Equations  for  DRADTN 

For  multifrequency  problems  and  as  an  option  for  grey  problems,  the 
partially  implicit  form  of  the  equations  is  solved.  In  these  equations,  the 
source  function  and  the  coefficients  are  evaluated  from  the  available  tem¬ 
peratures,  0  ?  .  When  solved  for  the  unknown  quantities  E^+ \  Eqe.  (22) 
again  have  the  form  of  Eq.  (15),  in  which  the  coefficients  are 


; 


A.  =  -  Q.R.P. 

l  ill 


P. 
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n 


At 


A. 

i 


(23) 
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_n.  .  _  ,  n 
E.  )  +  C.  (E  . 
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cAt 
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The  partially  implicit  formulation  makes  use  of  En+  1  obtained  above 

"  “  ener8y  eqUa“0n  8imllar  “  'I8>-  By  using  Eq.  „7),  but  paral- 

lelmg  the  formulation  of  the  radiation-material  exchange  term  of  Eq.  (.a,, 
the  equation  for  the  new  temperature  becomes 


0n+1=  en  + 

i  i  (C 

v 


•>i  V  fi+  Srm)^-^lj(2b^i-E"-E"+1)j  ,24) 

i  'i  J 


As  in  the  case  of  the  ERADTN  equations,  an  iteration  may  be  performed 

“  solved  *  =«ond  time  using  coefficients  formed 

With  0  =  (0n  +  0n+I)/2. 

1 '  3‘  8*  Implicit  Equations  for  DRADTM 

When  the  grey  atmosphere  approximation  is  suitable,  the  coupling 
between  radiation  and  material  can  be  made  implicit,  thereby  relaxing 
the  associated  stability  condition.  The  energy  equation  Unearned  in  v 
and  the  zeroth  moment  equation  are  similar  to  Eqs.  (19)  and  (20). 

o 

r»  4-  1  4a0  At  A  TT 

n+ 1  n  i  ,  oiL  cu  . 

-i  ■  *, + -  ( Pi  ♦  **)  *  -  < 1  -  E”) 

(25] 

Atn  +  T  -  fi  +  *?+  1  -  >  =  -r  < (<pT  1  +  <pni  -  EV ) 

The  coefficients  of  Eq.  (15)  are  then 


A 
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A.  =  -Q.R.P. 
1  111 


c.  =  -Q-x  ,R  .  ,p- 

i  i+  i  i+  i  i 


■A.  -  C,  + 
i  i 


,  4a0  3Atn 

-i-  + - i _ 

CM.  P(C  ). 

i  vi 


- ^—Ae”  +  A-  <sn  i 

_2  4afl  fa*  )  1  1  " 

CM.  +  P(C  ).  ' 

1  VI 


E”)  +  C.  (En 

i  li+l 


_  3  n 

2a0  .At  9E  v  , 

p.  „„  <  +  -Tct-h-(pi+-af)al 

+  -77«Q1+iFr+i  -QiF”' - - - t-t — 

cAt  2a 0  At 

—  +  - 1 _ 

CM.  P(C  ). 

1  VI 

n  I  1 

If  desired  Eq.  (25)  can  be  solved  for  the  temperature  6  to  per 
form  an  iteration  of  the  implicit  equations. 

1.  3.  9.  Modified  DRADTN  Equations 


The  difference  equations  of  Eq.  (22),  although  accurate  to  second 
order  in  time  and  stable,  are  subject  to  oscillations  which  under  some  cir¬ 
cumstances  are  very  slightly  damped,  as  shown  in  Section  1.  6.  The  equations 
were  reformulated  in  order  to  remedy  these  oscillations,  which  arise  from 
the  centering  of  teims  in  time  and  are  manifested  by  periodic  exchange  of 
energy  between  radiation  field  and  material  when  the  time  interval  greatly 
exceeds  the  characteristic  relaxation  time  of  the  radiation  field. 
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After  several  experiments,  the  equations  were  written  in  the  following 
form: 


rn+ 1  En  /  \ 

li - L  +  p.  (p^  1  -  Fn+  l)  = 

At"  1  \  1+1  1  / 


~r\  4-  1 

F  -  F  /  \ 

i  i  /  _n*f  1  n+  1 

— - +  R.  E.  -  E. 

n  l  \  l  l-l  i 


c"i  L 

—  |2y. -2E. 


(27) 


n+  1 


4cAt 


4\ , 


These  equations  have  overcome  the  oscillation  difficulties  at  the  ex¬ 
pense  of  loss  in  accuracy.  It  is  likely  that  further  experimentation  in  the 
form  of  these  equations  is  warranted.  In  particular,  the  equations  might 
take  the  more  accurate,  centered  form  in  regions  where  oscillation  cannot 
occur;  but  in  regions  where  oscillations  are  possible,  the  modified  equa¬ 
tions  could  be  employed. 


1.  3.  10.  Boundary  Conditions  for  Difference  Equations 

The  computation  in  the  above  equations  iB  assumed  to  apply  to  a 

finite  interval,  r,  S  r  s  r  ,  at  the  ends  of  which  boundary  currents  F 
II  K 

and  F  are  specified  as  in  Eq.  (8).  These,  in  turn,  relate  the  flux  and 
L 

energy  at  the  boundary.  The  difference  equations,  however,  call  only  for 
a  boundary  flux;  the  radiation  energy  is  a  zone  centered  quantity  at  best 
a  half  zone  removed  from  the  surface.  It  is  proposed  to  close  these  equa¬ 
tions  by  performing  an  extrapolation  bo  that  the  radiation  energy  at  the 
boundary  introduced  by  Eq.  (9)  iB  related  to  the  interior  values  of  energy. 

The  system  of  equations  can  then  be  solved  for  the  energy  by  the  tri¬ 
diagonal  matrix  inversion  algorithm. 

For  illustration,  the  left  boundary  condition  is  derived.  It  is  assumed, 
just  for  the  purpose  of  extrapolating  the  radiation  energy  through  a 
half  zone,  that  the  geometry  is  planar,  that  the  solution  is  time  independent, 
and  that  the  source  is  constant  in  the  half  space  to  the  right  of  x  =  0.  Then 
the  moment  equations  can  be  combined  to  give 
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\  ^  -  #i(E-  afl4)  =  0 
3  cbc 

having  the  solution  E  =  a04  +  Ae_“X  ,  where  a  =  / ^T.  To  determine 
the  constant  A,  the  boundary  condition, 


F(x  =  0)  =  2Fr  -  E(x  =  0)  =  - 


\c  8£\ 

3  8x  ix  =  0 


is  imposed.  The  solution, 


2F 


E  =  a0  + 


R 


-fe4 


-  QfX 


c  \a 
3 


+  ! 


gives  a  boundary  flux  of 

F  -S,4 

F(x  =  0)  = - - j 

4Xa  +  2 

4 

The  correct  solution,  giving  F(x  =  0)  =  FR  -  (ca/4)0  ,  is  obtained  if 
Z\ot/3  =  1;  consequently,  to  improve  the  accuracy  of  the  boundary  condi 
tion,  this  substitution  is  also  made  in  E: 


+  (fFR-f6V 


ax 


In  order  to  relate  the  energy  at  the  boundary  E(x  -  0)  to  the  energy  at  the 
first  zone  center  E  ,  the  source  is  eliminated: 


E(x  =  0) 


4  F_(l  -  e"CVAxl/2)  +  E 
c  R'  _ 


1 


-  aAx  »/2 
-  e  1 


The  corresponding  value  of  the  boundary  flux  is 

F<*  *  0>  =  (2Fr  -  f  =,)  %. 


(28) 
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k 


in  which  /3 


R  ..  -aAx./2 

2-e  1 


and  a 


the  condition  is  similar: 


y  3/1  /X  . 


For  the  right-hand  boundary 


F(xI'-(-2FL+!EI-l)'i] 


,  „  .  i -ckAxt  ,  /  2, 

where  >3  =1/(2  -  e  1-1  ) 

L 


(29) 


In  Eq.  (28),  the  thickness  of  the  first  zone  isAx^  =  r^  -  r  ^  and  the 
quantity  a  is  evaluated  as  a  function  of  temperature  and  density  in  the 
first  zone.  Similarly  in  Eq.  (29),  for  the  right-hand  boundary  condition 
the  last  zone  thickness  is  Ax^  ^  =  rj  "  xj  *a8t  zone  energy  is  E^ 

and  the  quantity  a  is  evaluated  from  the  last  zone  variables. 

The  expressions  for  flux  at  the  boundary,  Eqs.  (28)  and  (29),  after 
correction  for  geometry  factors, are  to  be  substituted  into  the  zeroth 
moment  equation.  The  result  is  a  modification  of  the  coefficients  of  Eq. 
(15),  the  linear  equation  for  the  unknown  radiation  energy  densities.  At 
the  left-hand  boundary  i  =  1,  for  example,  the  coefficient  A^  =  0,  as  must 
be  the  case  to  terminate  the  equations.  In  addition,  the  coefficients 
and  Dj  are  modified  in  a  way  depending  on  which  form  of  the  equations  is 
being  used.  To  illustrate,  the  ERADTN  coefficients  become 


/V  -  1 

D  -  2a  r  P  F  B  —  D 
1  1  1  R^R  1 


(30) 


The  boundary  equations  for  DRADTN,  as  currently  formulated,  are  the 
same  as  Eq.  (30). 

1.3.11.  Iteration 

The  coefficients  of  the  linear  equations  depend  on  the  temperature 
and,  consequently  (in  a  time  dependent  problem),  on  tht  time.  In  each  of 
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the  subroutines  an  option  is  provided  to  use  the  estimate  of  the  tempera¬ 
ture  resulting  from  the  first  calculation  to  recalculate  the  coefficients. 

The  calculation  is  then  repeated.  In  principle,  this  iteration  could  be 
repeated  until  a  convergence  criterion  is  satisfied.  However,  the  equations 
are  at  best  no  more  than  second  order  accurate.  Since  a  single  iteration 
is  sufficient  to  achieve  second  order  accuracy,  it  is  doubtful  that  further 
iteration  is  warranted.  Improved  accuracy  can  be  better  achieved  by  a 
reduced  time  step.  The  modified  DRADTN  equations  are  only  first  order 
accurate  in  time.  Consequently,  it  is  doubtful  that  the  iteration  option 
should  be  exercised  for  the  DRADTN  equations. 

1.  3.  12.  Solution  of  E  -  equations 

The  equations  for  the  radiation  energy  at  the  advanced  time, 

Eqs.  (15),  form  a  set  of  linear  equations  in  which  the  coefficient  matrix 
of  the  E- vector  is  tridiagonal.  These  equations  are  solved  by  factoring 
the  coefficient  matrix  into  upper  and  lower  matrices.  The  solution  is 
obtained  by  solving  a  recurrence  relation 


E. 

l 


+  h. 
i 


(31) 


in  which  gj  =  0  (resulting  from  Cj  =  0)  and  g,  =  -  Cj/d.,  h.  =  -(D.  +  Aihi_1)/di’ 

and  d  =  B  +  A  g  .  The  condition  A.  =  0  suffices  to  terminate  the  equa- 
i  i  i  i-1  1 

tions  for  h^  and  d^. 

These  equations  have  been  found  to  suffer  from  figure  loss  when  the 
mean  free  path  in  the  medium  is  long.  To  avoid  this  loss  of  figures  due 
to  the  finite  precision  of  the  computer,  new  quantities  are  defined: 


A]  =  A.  , 

l  l 


(32) 
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Hf- 


k 


In  terms  of  these  quantities,  the  above  equations  can  be  written 


E  =  E.  ,(g!  +  1.  )  +  h. 
i  i+l'Bi  i 


*J«(-SJ-AlgJ)/dt  .  V  -(V  Aihi-l)/di 


(33) 


d.  =  B!  -  C.  +  A.g!  , 
iii  ii 


gI  =  '! 


The  modified  B.'  is  a  small  quantity  when  the  mean  free  path  is  long.  The 

i 

previous  equations  required  the  subtraction  of  the  large  quantities  A.  and 
C.  from  B.  to  give  the  correct  result.  In  addition,  under  the  above  cir¬ 
cumstances  the  modified  g!  becomes  very  small,  a  result  previously 
achieved  by  subtraction  of  quantities  near  1  in  size. 

The  flux  calculation  can  also  suffer  from  figure  loss.  The  form  of 
the  relation  between  flux  and  radiation  energy,  which  is  solved  for  the  flux 
after  the  radiation  energy  has  been  obtained,  is  given  by  the  first  moment 
equation  and  is  different  for  DRADTN  and  ERADTN.  Without  retardation 
the  result,  derived  from  Eq.  (14),  is 


?n+1  =  -a 

1 


To  avoid  the  subtraction,  the  flux  equation  is  rewritten 


Fn+1 

i 


4\.R, 

l  l 


n+1/2 

+  g  .  E. 

6i- 1  l 


) 


(34) 
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Some  problems  involving  temperatures  of  several  kev  resulted  in 
overflow  of  quantities  in  the  fully  implicit  equations.  This  overflow 
was  eliminated  by  forming  intermediate  quantities  in  different  Older, 
albeit  at  the  cost  of  less  efficient  coding. 


1.3.13.  Time  Interval 


The  control  of  the  time  interval  reflects  two  considerations:  accu¬ 
racy  and  stability.  The  accuracy  criterion  is  based  on  limiting  the  radia 
tion  contribution  to  the  energy  change  in  each  zone  to  less  than  a  pre¬ 
scribed  fraction  of  the  energy  in  the  zone: 


*  SLUG 


(35) 


where  E  is  the  zone  internal  energy,  ER.  is  the  radiation  energy  change 
i  1 

rate  per  zone,  and  the  input  quantity  controlling  the  accuracy  criterion 
is  SLUG.  In  order  to  avoid  control  of  the  time  interval  by  zones  having 
very  small  internal  energy,  the  test  of  Eq.  (35)  is  applied  only  to  zones 
having  greater  than  a  prescribed  fraction  (given by  the  input  quantity 

TELM  (37))  of  the  total  internal  energy. 

For  problems  in  which  the  fully  implicit  equations  are  solved,  the 
accuracy  criterion  affords  the  only  radiative  control  of  the  time  interval. 
When  the  partially  implicit  equations  are  solved,  however,  additional  sta 
bility  criteria  are  required.  The  full  equations  have  not  yet  been  sub¬ 
jected  to  stability  analysis.  However,  the  stability  analyses  given  in 
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Section  1.  6  suggest  that  two  criteria  be  applied.  These  two  condition, 
must  be  observed  in  ordir  that  small  oscillations  will  „o,  be  amplified 
When  energy  is  exchanged  between  radiation  and  material.  The  firs,  con¬ 
dition  represent,  stability  in  the  exchange  in  a  single  aone  between  radia. 
tion  and  material: 


min 


At  ^ 

R  i 


,Cv>i 


8  x  io12  e 3  (K  ) 

i  p  i 


(36) 


Where  the  Planck  mean  opacity  «p  ,cm2/g,  appears.  This  condition  is 
undoubtedly  a  conservative  one.  since  some  stabilisation  re.u'.ts  from  the 
implicit  treatment  of  the  radiation  energy.  The  second  condition  arise, 
from  the  requirement  that  energy  flowing  between  adjacent  zones  not  re¬ 
sult  in  growing  oscillation,  of  energy  between  zones: 


At  :£  m*n 
R  i 


(PARi)2  K).  K)i 


l.  07  x  io13  e  3 


(37) 


where  *R  (cm  /g)  ,a  the  Rosseland  mean  opacity  and  AR  i„  the  zone  thick¬ 
ness.  This  condition  is  the  explicit  stability  condition  for  the  (equilibrium) 
radiation  diffusion  equation.  Again,  the  condition  may  be  somewhat  con¬ 
servative  (perhaps  even  superfluous),  since  par,  of  the  exchange  take, 
place  via  the  stable  radiation  energy  equation. 
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l #  4#  HOW  TO  USE  NON-EQUILIBRIUM  DIFFUSION  SUBROUTINES 

This  section  contains  information  useful  to  the  person  who  desires  to 
perform  calculations  with  the  non-equilibrium  diffusion  subroutines  in  the 
SPUTTER  code.  Criteria  are  presented  for  choosing  between  DRADTN 
and  ERADTN  subroutines,  code  variables  are  related  to  variables  of  the 
derivations  of  Section  1.  3,  input  quantities  are  discussed,  and  comments 
are  made  regarding  how  to  control  the  problem  and  what  difficulties  may 
be  encountered  during  the  calculation. 

I  4  1.  Differences  Between  ERADTN  and  DRADTN 

Radiation  in  equilibrium  with  material  at  temperature  0  has  a  den¬ 
sity  of  energy  E  =  afl4  which,  under  conditions  of  sufficiently  high  tem¬ 
perature  or  of  low  matter  density,  may  become  comparable  with  or  greater 
than  the  material  energy  density.  If  such  is  the  case,  it  is  necessary  to 
take  into  account  this  radiation  energy  in  transit  through  the  system  in 
order  properly  to  account  for  the  energy  balance  of  the  problem.  In  the 
transport  equation  the  radiation  energy  corresponds  to  the  l/c  81^/81 
term  (sometimes  called  the  retardation  term)  and  gives  rise  to  the  time 
derivative  terms  in  the  non- equilibrium  diffusion  equation  (Eq.  16). 

As  indicated  in  Section  1.  3,  the  non-equilibrium  diffusion  equations 
have  a  substantially  different  form  requiring  more  computation  when  the 
retardation  terms  are  retained.  Consequently,  for  problems  in  which 
radiation  energy  i*>  neglibible,  as  is  the  case  when 

0  (ev)  «  2  x  103  lp(g/cm3)J 

and  when  the  light  speed  of  propagation  of  radiation  waves  can  be  neglected, 
it  was  deemed  desirable  to  solve  the  equations  without  considering  the  re¬ 
tardation  terms.  These  equations  are  incorporated  into  a  separate  sub¬ 
routine,  ERADTN,  which  should  be  used  for  low-temperature  problems. 

For  problems  in  which  the  radiation  energy  is  not  small  or  in  which  it  is 
of  interest  to  take  account  of  light  speed  with  which  radiation  waves 
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propagate  through  vacuum,  the  equations  including  the  retardation  terms 

l 

are  solved  in  the  DRADTN  subroutine.  The  user  must  choose  which  of 
these  two  subroutines  to  incorporate  into  his  code  with  the  remaining  de¬ 
sired  SPUTTER  subroutines.  Fortunately,  most  of  the  control  quantities 
are  the  same  for  the  two  codes.  Exceptions  are  noted  below,  in  particular 
the  DRADTN  dump  tape. 

1.4.2.  Glossary  of  Code  Variables 

In  Table  I  the  variable  quantities  used  in  the  DRADTN  and  ERADTN 
subroutines  are  correlated  with  the  quantities  defined  in  Section  1.  3,  where 
the  equations  are  derived.  In  addition,  a  brief  word  description  of  the 
variable  is  given.  Only  those  variables  which  have  a  use  which  is  unique 
to  the  non-equilibrium  diffusion  subroutines  (there  are  a  few  exceptions) 
are  included.  Consequently,  a  number  of  quantities  appearing  in  these 
routines  but  also  used  in  other  parts  of  SPUTTER  are  not  found  in  Table  I; 
reference  should  be  made  to  the  SPUTTER  report  for  these  quantities. 

Most  of  the  entries  in  the  table  are  used  in  both  routines;  the  few  appearing 
only  in  DRADTN  are  distinguished  by  an  asterisk  (*). 

1.4.3.  Glossary  of  Input  Quantities 

Table  II  contains  the  quantities  needed  to  control  the  calculations  of 
the  non-equilibrium  diffusion  subroutines,  and  information  on  how  to 
establish  their  values.  The  first  column  contains  the  decimal  location  in 
common  storage  of  the  quantity,  as  required  for  card  input.  The  second 
column  contains  the  variable  FORTRAN  name.  The  third  column  contains 
a  description  of  the  quantity.  Finally,  the  fourth  column  contains  a  typi¬ 
cal  value  of  the  quantity.  In  some  cases  this  value  represents  a  recom- 
4  mended  one,  (e.  g. ,  AC);  in  other  cases,  merely  a  typical  one  (e.  g. ,  GA). 

After  having  chosen  between  the  DRADTN  and  ERADTN  subroutines, 

'  it  is  necessary  to  make  additional  selections  to  determine  the  values  of 

input  quantities/  Some  comments  regarding  these  selections  follow. 
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Table  I 

GLOSSARY  OF  CODE  VARIABLES 


Code 

Symbol 

Quantity 

Units 

RHO(I) 

En+1 

X 

Radiation  energy  density 

erg/ cm’* 

X2(I) 

Fn+l 

Area-integrated  flux  (per 

erg/ sec 

i 

volume  factor) 

ER(I) 

--- 

Material  radiative  heating 
rate  (per  zone  and  per  vol¬ 
ume  factor) 

erg ' sec 

1 

PDFU(I) 

P. 

Coefficient  of  flux  difference 

**'V 

cm 

i 

in  first  moment  equation 

Coefficient  of  energy  differ¬ 

Q?  - 1  / 

cm  /sec 

RUC(I) 

R. 

i 

1/4A. 

ence  in  second  moment 
equation  i 

0.  25  over  diffusion  mean  free 

-1 

cm 

H2(I) 

path  (Ros  s eland;  av.  ) 

! 

Absorption  coefficient  times 

-1 

sec 

H(I) 

cu./Z 

l 

half  light  speed  ^Planck  av. ) 

4 

X6(I) 

b.  04 

J  1 

Integral  of  Planck  function 
over  frequency  group. 

(ev) 

3 

SU(I) 

cu  .b.  (0 . 
l  j  l 

Radiation  source  function 

crg/cm  sec 

A 

Q1(I) 

94 

1 

Fourth  power  of  temperature 

(ev) 

Q37(I) 

In  0 . 

i 

Logarithm  of  temperature 

—  ”  - 

Q38(I) 

In  T. 
i 

Logarithm  of  specific  volume 

“  “ 

SUMX2(I) 

_  ~n+  I 

2  F  . 

i 

J 

Sum  over  frequency  groups  of 

erg/ sec 

flux 

SUMRHO(I) 

n+  1 

2  E. 

Sum  over  frequency  groups  of 

erg/ sec 

1 

J 

radiation  energy 

GU(I) 

gi 

Coefficient  of  E.  +  1  in  recur¬ 

— 

1 

rence  for  E^ 

3 

HU(I) 

h. 

Inhomogeneous  term  in  recur¬ 

erg/cm 

i 

rence  for  E. 

1 


r 


* 
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Table  I  (Continued) 


Code 

Symbol 

Quantity 

Units 

OSX2(I)  * 

2  Fn 
j  1 

Sum  over  frequency  groups  of 
old  flux 

erg/ sec 

A 

FLUX(I) 

— 

Value  of  left-hand  boundary 
flux  for  GL  >  0.  5.  Formed 
in  the  TQUE4  subroutine. 

(ev) 

OLDTH(I) 

n 

9. 

\ 

"Old"  temperature  stored 
during  iteration 

ev 

3 

OLDE(I,  IHNU)  * 

En 

i 

"Old"  radiation  energy  for 
use  xn  DRADTN 

erg/cm 

OLDF(I,  IHNU)  * 

F" 

X 

"Old"  flux  'or  use  in  DRADTN 

erg/ sec 

WSB 

Total  internal  energy;  used 
in  time  interval  criterion 

erg 

WSBB 

— 

Zone  internal  energy,  used 
in  time  interval  criterion 

erg 

THTAMX 

9 

max 

Largest  of  rone  and  boundary 
temperatures 

ev 

-1 

sec 

-1 

cm 

RDTR 

l/AtR 

Reciprocal  of  radiation  time 
interval 

RCDT  * 

l/4cAtR 

Reciprocal  of  distance  light 
trav»  Is  during  time  i  xterval 

TSLH 

o-l 

«ri 

Area  factor  for  left-hand  flux 
boundary  condition 

0-1 

cm 

TSRH 

a  -1 
arI 

Area  factor  for  right-hand  flux 
boundary  condition 

a- 1 

cm 

4 

ev 

4 

BBSL 

b.O4 

J  L 

Left-hand  boundary  Planck 
integral 

BBR 

b.9  4 
j  R 

Right-hand  boundary  Planck 
integral 

ev 

BETA1 

h 

Extrapolation  coefficient  for 
left-hand  boundary  energy 

BETA2 

h 

Extrapolation  coefficient  for 
right-hand  boundary  energy 

HNU 

hv. 

J 

Lower  photon  energy  boundary 
of  group  j 

ev 
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Table  I  (Continued) 


Code 

Symbol 

Quantity 

Units 

HNUP 

hVi 

Upper  photon  energy  boundary 
of  group  j 

ev 

HNU4 

h^4 

J 

Fourth  power  of  h^ 

4 

ev 

HNU4P 

hVi 

Fourth  power  of  hx\  +  j 

4 

ev 

H3M 

( KpA  r) 

Optical  depth  of  zone  to  left 
of  interface;  used  in  flux 

— 

gradient 

H3P 

(Kp  Ar)  + 

Optical  depth  of  zone  to  right 
of  interface;  used  in  flux 

“  “  “ 

gradient 

BNTH 

*"+1 

1 

Estimate  of  new  temperature; 
used  in  iteration 

ev 

AU 

A. 

l 

Coefficient  of  E.^  in  radiation 
energy  linear  equation 

“  “  “ 

BU 

B. 

X 

Coefficient  of  E.  in  radiation 
energy  iinear  equation 

“  “  “ 

CU 

C. 

l 

Coefficient  of  E.+  ^  in  radiation 
energy  linear  equation 

“  “  “ 

DU 

D. 

l 

Inhomogeneous  term  in  rad¬ 
iation  energy  linear  equation 

“  “  “ 

*  DRADTN  only 
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Table  II 

GLOSSARY  OF  INPUT  QUANTITIES 

Common  Variable  Typical 


Location 

Name 

Description 

Value 

26 

LMDA(26) 

DRADTN  only.  Upon  restart,  the 
second  data  packet  must  contain  a 
card  setting  LMDA(26)  =  0.  0.  This 
causes  the  tape  containing  OLDE  and 
OLDF  to  be  read  to  obtain  starting 
values. 

0.  0 

44 

KMAX 

Frequency  group  indicator.  Zero  gives 
grey,  nonzero,  multifrequency. 

0.  0 

75 

BOILB 

Maximum  number  of  radiation  sub¬ 
cycles  permitted.  Set  to  NTIMES 
in  subroutine. 

10.  0 

«  i 

77 

CVB 

Iteration  control.  Zero  gives  single 

0.  0 

pass,  nonzero,  double  pass  with  time- 
centered  coefficients.  Used  to  set 
the  flag  NVEZ. 


78  SLUG  Time  interval  criterion.  Maximum  0.  1 

permissible  fractional  zone  energy 
change  per  cycle. 

79  ALPHA  Geometry  selector.  All  values  per-  1.  0 

missible  for  non- equilibrium  diffu¬ 
sion:  1,  slab;  2,  cylinder;  3,  sphere. 

81  HVB  Implicit  selector.  When  KMAX  =  0.  0,  1.0 

a  nonzero  value  gives  fully  implicit 
equations;  otherwise  partially  implicit 
equations  with  time  step  subject  to 
stability. 

87  CB  Used  to  minimize  the  number  of  fre-  10.  0 

quency  groups  calculated  for  multi¬ 
frequency  problems.  Merges  into  one 
group  all  groups  having  lower  frequency 
boundary  greater  than  THTAMX.  Too 
many  groups  merged  will  lead  to  call 
UNCLE  unless  CB  is  half-integral. 

Ope  rative  only  in  ERADTN. 


- 
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Table  II  (Continued) 


Common 

Location 

88 

90 

126 

147 

152 

8466 

8478 

8858 


Variable 

Name 

Gn 


GL 


AC 


EDITMF 


Description 

Left  boundary  condition  indicator. 
Opera  ive  only  if  no  pusher.  (Pusher 
present  prescribes  blackbody  flux.  ) 
GA  <  0  givs  zero  net  flux;  GA  =  0 
gives  vacuum  to  the  left;  GA  >  0  gives 
UNCLE  call. 


Typical 

Value 

0.0 


Right  boundary  condition  indicator. 

GL  <  0  gives  zero  net  flux;  GL  =  0 
gives  vacuum  to  the  right;  GL  =  0.  5 
gives  blackbody  flux  specified  by 
THETA(IM+1);  GL  >  0.5  gives  flux 
specified  via  FLUX(I)  in  the  TQUE4 
subroutine. 

Criterion  in  diffusion  mean  free  path 
(H2(I))  calculation.  If  optical  depth  is 
greatly  different  in  adjacent  zones,  the 
optically  thinner  zone  is  used  instead  of 
forming  an  average. 

Same  as  SI 2.  Nonzero  value  gives 
multifrequency  print  which  also  serves 
as  a  debug  print. 


Si7  Old  implicit  switch  which  sets  S9.  Note 

changed  from  previous  usage. 

TELM(25)  Multiplied  to  change  radiation  time 
interval  after  all  criteria  have  been 


applied. 

TELM(37)  Fraction  of  internal  energy  of  the  entire  0.  003 
mesh  which  each  zone  must  exceed  before 
energy  change  of  that  zone  is  tested  (see 
SLUG)  in  the  time  interval  calculation. 

SOLID(10>  Switch  to  permit  Rosseland  mean  to  be  0.0 

substituted  for  Planck  mean  if  value  is 


not  zero. 


I 
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The  frequency  treatment  decided  on  is  very  important  for  the  speed 
and  accuracy  of  the  calculation.  Two  situations  permit  a  monofrequency, 
or  grey,  calculation.  If  the  medium  is  optically  thick  it  is  usually  per¬ 
missible  to  perform  a  grey  calculation.  Howe'  or,  it  is  necessary  that  the 
medium  be  thick  to  all  relevant  frequencies,  i.  e.  ,  those  which  transport 
appreciable  energy.  Exceptions  occur  when  sharp  temperature  changes 
exist  in  the  medium,  suchasat  radiation  or  shock  fronts  and  at  boundaries. 
If  they  are  transient  or  localized,  it  is  usually  permissible  to  perform  the 
grey  calculation.  At  the  other  c^ueme,  if  the  medium  is  optically  thin  in 
all  important  parts  of  the  spectrum,  the  grey  calculation  can  be  performed. 
In  both  of  these  situations  it  is  sometimes  desirable  to  find  the  spectrum  of 
the  radiation  in  or,  more  commonly,  emerging  from  the  material.  It  is 
not  necessary  to  run  the  calculation  with  frequency  groups  through  the 
entire  problem  history  in  this  case.  Instead,  the  grey  calculation  can  be 
edited  with  a  "snapshot"  multifrequency  calculation  at  desired  times. 

When  the  material  is  intermediate  between  these  situations,  the  multifre¬ 
quency  calculation  is  necessary.  However,  it  is  under  these  conditions  of 
intermediate  optical  thickness  that  the  non-equilibrium  diffusion  approxi¬ 
mation  is  least  reliable. 

The  grey  calculation  with  KMAX  =  0.  0  permits  the  implicit  indicator 
HVB  to  be  set  to  a  nonzero  value,  thereby  releasing  the  time  interval 
from  the  control  of  stability  criteria  and  leaving  it  subject  only  to  accuracy 
considerations.  The  implicit  option  should  be  exercised  when  possible 
(the  option  exists  only  to  permit  test  investigations  of  the  code).  When  a 
multifrequency  calculation  is  required,  the  partially  implicit  solution  is 
mandatory.  Consequently,  multifrequency  calculations  are  lengthy  not 
only  because  the  calculation  is  repeated  for  each  frequency  group,  but 
because  the  time  interval  may  be  reduced  substantially  below  the  value  for 
implicit  calculation.  When  there  is  doubt  about  the  necessity  for  groups, 
one  can  first  calculate  a  grey  solution  and  then  compare  the  resulting 
radiation  fluxes  with  those  obtained  with  a  few  "snapshot"  multifrequency 
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calculations.  Substantial  differences  indicate  that  the  multifrequency 
calculation  is  required  ab  initio.  Frequently,  the  grey  calculation  is  not 
wasted,  since  the  information  about  zoning  of  the  problem  can  be  incor¬ 
porated  into  the  subsequent  calculation. 

No  good  criterion  for  the  decision  about  iteration  exists.  In  general, 
iteration  almost  doubles  the  computing  time.  Iteration  may  be  warranted 
if  the  increased  accuracy  of  the  solution  permits  a  time  interval  which  is 
more  than  twice  as  large  as  that  used  in  the  solution  without  iteration. 
Whether  the  accuracy  is  substantially  affected  depends  on  both  the  vari¬ 
ability  of  the  coefficients  of  the  radiation  equations  (which  is  different  for 
the  implicit  and  partially  implicit  forms  of  the  equations)  and  the  rapidity 
of  change  of  the  solution  with.  time.  When  iteration  is  performed,  the 
accuracy  criterion  (SLUG)  should  be  relaxed. 

The  optical  depth  between  zone  centers  required  in  the  gradient 
term  of  the  radiation  flux  is  difficult  to  evaluate  accurately  in  regions 
where  the  mean  free  path  changes  rapidly  in  space,  as  near  the  front  of  a 
radiation  wave.  No  completely  satisfactory  prescription  is  yet  available, 
but  a  method  containing  the  variable  AC  is  available  in  the  subroutines. 
This  quantity,  which  controls  the  transition  from  using  an  average  of 
optical  depths  of  neighboring  zones  when  the  optical  depths  do  not  differ 
greatly  to  using  the  smaller  optical  depth  when  the  difference  is  larige, 
has  been  found  to  give  accurate  results  for  a  diffusion  test  problem  when 
AC  =  0.  3.  Further  improvement  would  result  from  a  prescription  incor¬ 
porating  the  effect  of  temperature  gradient  on  mean  free  path  within  a  zone 

Boundary  conditions  at  the  two  faces  of  the  shell  of  material  being 
calculated  are  determined  from  several  options.  When  the  spherical  or 
cylindrical  shell  is  not  hollow,  the  boundary  condition  at  the  origin  is 
irrelevant,  but  GA  2S  0  should  be  set.  When  no  pusher  exists,  the  left 
boundary  can  be  made  to  give  zero  net  flux  to  simul?.te  a  perfectly  reflec¬ 
tive  region  on  the  left  or  to  permit  radiation  to  flow  unimpeded  from  the 
material  to  simulate  a  vacuum  on  the  left.  Similar  options  are  available 
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for  the  right  boundary  with  the  addition  of  a  blackbody  boundary  condition 
and  a  boundary  flux.  The  blackbody  condition  simulates  the  effect  of  a 
hohlraum  at  temperature  THETA(IM+  1)  shining  on  the  right  boundary. 

The  boundary  flux  -'mdition  is  a  special-purpose  feature,  making  use  of 
the  TQUE4  routine.  With  it  the  frequency  dependent  flux  found  in  a  fire¬ 
ball  can  be  applied  to  the  right  surface  of  the  material.  Quite  small 
modifications  of  the  subroutines  could  make  these  last  two  options  appli¬ 
cable  also  to  the  left  boundary.  An  alternative  method  of  applying  an 
external  radiation  boundary  condition  is  through  a  source  routine  which 
forms  an  energy  source  in  the  material  as  determined  by  the  rate  of  energy 
absorption  at  various  depths.  An  example  is  the  QUE4  subroutine  for 
incident  X-rays. 

The  time  interval  of  the  calculation  is  determined  by  both  accuracy 
and  stability  criteria.  The  calculation  of  radiation  flow  can  be  performed 
at  a  smaller  time  interval  than  the  hydrodynamics,  so  that  a  number  of 
subcycles  of  the  radiation  limited  by  BOILB  are  calculated  every  cycle. 

It  is  not  desirable  to  allow  the  number  of  Bubcycles  to  become  very  large. 
First,  the  calculation  time  for  other  parts  of  the  cycle  is  not  large  com¬ 
pared  with  the  radiation,  so  no  appreciable  saving  results.  Second,  sub¬ 
stantial  radiation  flow  during  subcycles  may  induce  other  changes  which, 
when  finally  calculated  on  the  next  cycle,  may  be  catastrophically  large. 
Third,  a  large  amount  of  computation  time  is  spent  during  which  no  infor¬ 
mation  is  available  about  the  progress  of  the  problem.  Consequently,  it 
is  desirable  to  limit  the  time  interval,  if  necessary,  by  control  cards  so 
that  a  limited  amount  of  subcycling  occurs.  When  a  strong  external  source 
is  applied  to  the  surface  of  the  material,  transients  are  established  which 
require  an  unusually  small  time  interval  for  a  few  cycles.  Control  card 
reduction  of  the  time  interval  is  usually  necessary  during  the  first  few 

cycles. 
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1. 4.  4.  Subroutines  Called  by  DRADTN  and  ERADTN 

Within  the  subroutine  codes  it  is  assumed  that  two  special-fut  ction 
subroutines  and  dependent  subroutines  which  are  an  integral  part  of  the 
radiation  calculation  are  available.  These  subroutines  are  described 
below. 

PLNKUT  (a  .a,).  This  function  returns  the  partial  Planck  function 
12 

defined  by 


a 

1 


2  u  du 


It  is  a  function  of  two  variables,  =  h u^/6  and  -  hv 6  (a  ^  <  at^). 
The  routine  is  described  in  Ref.  9. 

KAPPA  (i.,  ij.  This  routine  returns  values  of  the  Rosseland  opacity 
1  2 

k  and  the  Planck  opacity  it  for  the  temperatures,  densities,  and  ma- 
R  P 

terials  appropriate  to  the  zones  having  indices  f  rom  ^  to  i ^  For  prob¬ 
lems  specifying  more  than  one  frequency  group,  the  appropriate  frequency 
group  average  coefficients  are  provided  as  well  as  the  quantities  averaged 
over  the  entire  spectrum. 

In  addition,  use  is  made  of  the  subroutines  UNCLE,  DVCHK,  and 


NONEQ. 

Boundary  flux  values  are  formed  in  a  special  TQUE4  subroutine  and 
used  when  GL  >  0.  5  via  the  FLUX(I)  array.  These  values  are  the  result 
of  integrating  the  frequency  group  intensities  to  obtain  the  radiation  cur¬ 
rent  incident  on  the  boundary.  The  TQUE  subroutine  processes  the 
AFWL  "users  tape"  to  obtain  radiation  intensities  resulting  from  fireball 
calculations. 


1.  5.  TEST  PROBLEMS 

Test  calculations  have  been  performed  to  evaluate  the  accuracy  of 
the  non- equilibrium  diffusion  method.  These  calculations  are  of  two 
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classes.  Idealized  problems  (slab  penetration,  isothermal  sphere  cooling) 
have  been  compared  with  corresponding  transport  solutions.  "Real"  prob¬ 
lems  dealing  with  interaction,  slab  penetration,  and  fireball  growth  have 
been  computed.  On  the  basis  of  the  results,  modifications  of  mean  free 
path  averaging  and  boundary  condition  formulation  have  been  made. 

Solutions  for  comparison  have  been  calculated  with  subroutines,  for 
radiation  transport  from  the  SPUTTER  code  (Ref.  5).  These  routines  are  ap¬ 
plicable  only  to  spherical  geometry  (SRADTN)  and  slab  geometry 
(PRADTN),  so  the  comparison  calculations  have  been  restricted  to  these 
two  geometries. 

All  of  the  idealized  calculations  are  without  hydrodynamics  and  use 
a  gray  and  temperature  independent  absorption  coefficient. 

The  first  calculation  applies  to  a  semi-infinite  absorbing  medium 
initially  cold.  At  t  =  0  an  isotropic  source  shines  on  the  surface  of  the 
medium  and  progressively  heats  it.  The  initial  heating  phase  is  followed 
by  a  transition  to  a  diffusive  solution  in  which  a  wave  penetrates  progres¬ 
sively  more  slowly  into  the  interior  of  the  slab.  Numerical  calculations 
of  this  problem  have  also  been  made  by  Barfield  (Ref.  10).  Both  the  DRADTN 
and  ERADTN  equations  have  been  tested  on  the  problem  in  which  there  are 
four  zones  per  mean  free  path  in  the  medium.  In  Fig.  1  the  fluxes  entering 
the  medium  versus  time  are  compared  for  the  two.  The  only  appreciable  differ¬ 
ence  occurs  at  early  time.  In  Fig.  2,  plots  of  temperature  profiles  for  the 
ERADTN  and  PRADTN  calculations  are  compared.  Largest  deviations 
appear  at  early  time  and  near  the  wave  front.  Results  obtained  with 
DRADTN  for  this  problem  are  substantially  the  same  as  those  obtained 


with  ERADTN. 


The  second  idealized  problerjl-deecribes  the  cooling  of  a  sphere  of 
gas  in  vacuum.-  Initially,  the  sphere  is  isothermal  and  contains  a  fixed 
number  of  absorption  mean  free  paths  in  the  radius.  Calculations  have 
been  performed  for  three  thicknesses  of  sphere:  1,  2,  and  5  mean  free 
paths  per  radius,  in  each  of  which  20  radial  zones  are  used.  Comparisons 
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Figure  2.  Slab  Penetration  Temperature  Profiles 
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of  ERADTN  with  SRADTN  for  these  cases  are  sho^n  in  Fig.  3,  where  the 
temperature  is  plotted  as  a  function  of  time  for  the  2  mean  free  path  case. 

In  Figs.  4  nd  5,  the  corresponding  curves  for  the  1  and  5  mean 
free  path  cases  are  given.  Temperature  differences  of  several  percent 
are  found.  It  is  to  be  expected  that  both  optically  thick  and  optically  thin 
cases  will  be  more  accurate.  In  Fig.  6  the  flux  at  the  surface  of  the  sphere 
is  shown  as  a  function  of  time.  The  comparison  calculations  are  sufficiently 
close  (never  differing  by  more  than  2%)  so  as  to  be  represented  by  a  single 
curve  for  each  case.  In  the  one  case  in  which  DRADTN  was  calculated, 
similar  results  were  obtained  but  oscillation  was  observed. 

As  indicated  by  the  above  example,  DRADTN  presently  gives  less 
satisfactory  results  due  to  bounded  oscillations  having  small  damping. 

This  problem  has  been  improved  by  recentering  in  time  of  the  exchange 
term  as  indicated  in  Section  1.3. 

Additional  test  problems  corresponding  to  situations  arising  in  appli¬ 
cations  of  SPUTTER  have  been  run.  The  ERADTN  and  PRADTN  equations 
have  been  compared,  and  agree  well  for  the  problem  of  radiation  impinging 
on  an  opaque  slab  and  inducing  radiation  penetration  preceded  by  a  strong 
shock  wave.  A  cycle  of  the  BLUE  GILL  fireball  problem  has  been  repeated 
with  ERAD'TN  and  SRADTN.  While  results  are  quite  similar  in  the  fireball 
interior,  the  fluxes  are  quite  different  in  the  free  streaming  region  outside. 
The  latter  appear  to  point  to  the  failure  of  the  radiation  energy  to  diverge 
in  the  Eddington  approximation  when  radiation  is  emitted  from  a  compact 
source.  This  very  recently  identified  problem  is  still  under  consideration; 
incorporating  parts  of  the  second  moment  equation  may  help  solve  it.  An 
interaction  problem  has  been  compared  in  which  ablation  of  a  target  induced 
by  thermal  radiation  falling  on  it  takes  place.  Preliminary  results  indicate 
agreement  after  a  short  transient  period.  Differences  in  the  early  result 

may  be  reduced  by  a  modified  boundary  condition  not  yet  tested  for  this 
problem. 
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Figure  3.  Spherical  Emission  Test  Problem, 
At  =  0.  03,  <R  =  /cp  =  0.  2 


Figure  4.  Spherical  Emission  Test  Problem 
At  =  0.  03,  =  Kp  =  °*  1 
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The  findings  to  date  show  very  satisfactory  agreement  for  slab  prob¬ 
lems  and  indicate  that  there  are  many  potential  applications  of  the  non¬ 
equilibrium  diffusion  equations.  How  generally  applicable  the  method  can 
be  made  is  not  yet  known. 

1.6.  APPENDIX:  STABILITY  ANALYSIS 

The  stability  analysis  of  the  difference  equations  for  non -equilibrium 
diffusion  is  partially  developed  in  this  section.  The  defining  equations  for 
this  physical  process  are  given. 

The  stability  theory  of  finite  difference  equations  is  sufficiently 
stated  in  a  book  by  Richtmyer  (Ref.  11).  He  gives  the  following  definition  of 
stability: 

Definition 

If  a  finite  difference  scheme  is  given  by 

n+1  t  n 
u  =  c(At)u 

where  u11  is  an  m-column  vector  and  c(At)  is  an  mxm  array,  the  sys¬ 
tem  is  said  to  be  stable  if  there  exists  a  r  such  that  the  sequence 
j  1 1  c  ( At )  ||  Jn_Q  is  uniformly  bounded,  where  0  <  At  <T. 

Consistent  with  this  definition,  a  sufficient  condition  for  stability  is 
that  the  spectral  radius  of  c(At)  be  less  than  1.  This  theorem  is  developed 
and  proved  by  Richtmyer  (Ref.  11). 

The  difference  equations  proposed  for  defining  non-equilibrium  dif¬ 
fusion  are 


— - —  +  —  (F^1  -  Fn+1  +  Fn  -  Fn)  =  — 1  (Zb.<t>.  -  En+1  -  En) 

.  .  n  2  l+l  i  l+l  i  2  j  i  i  i 

At 


_n+l  n 
F.  -  F. 

(2)  - - -  +  2R,  (En+1 

cAtn  1  1 


„n+l  „n  .  -1  .^n+l  _n. 

E  +  E.  -  E  )  =  — —  (F.  F.  ) 

l-l  l  l-l  2\ ,  i  +i 

l 


41 


AFWL-TR-66-  lOt,  Vol  I 


n+1  n  r  /_  \  9  T  c  V  „  (2b  6  -  En+*  -  En)  I 

(3)  *.  =*;  +(i  [^i  -  (pi  +  8T  )  et  "  2P  Y  J  ’  1  lJ 

where  the  terms  are  defined  as  in  Section  1.3.  The  first  two  equations  are 
the  defining  relations  for  the  pertinent  moments  of  the  intensity.  The  third 

equation  expresses  the  conservation  of  energy. 

As  the  difference  equations  are  now  stated,  a  stability  condition  can¬ 
not  be  found  as  a  function  of  the  parameters.  Various  assumptions  are 
employed  to  reduce  the  system  to  one  amenable  to  solution.  These  assump- 
tions  are  summarized  as  follows: 

1.  Ignore  hydrodynamics 

2.  No  energy  sources,  i.e.,  qj  =  0 

3.  Monofrequency 

4.  Plane  geometry 

5.  Scattering  is  negligible 

With  these  assumptions  the  system  of  equations  becomes 


(1) 


E?*1  -  En 
At 


1+^<i-Fr,+rm-Fi,=  4<2vEr+1-Er> 


(2) 


Fn+1 

i 


Fn 

i 


cAt 


(3)  <P 


n+1 


l 


En+1  -  E?> 
1  1 


With  this  system  of  equations  two  possible  special  cases  may  be 
investigated.  Consider  first  that  the  material  energy  is  much  larger  than 
the  radiation  energy.  This  requirement  is  equivalent  to  constant  for 
some  time  interval  r.  In  this  time  interval  one  can  investigate  the  stability 
of  partially  implicit  equations  (1)  and  (2)  above.  Expanding  E  and  F  into 
Fourier  components,  one  finds,  after  some  reduction,  that  the  amplification 

matrix  C(At)  is  given  by 
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C(At) 


where 


C 


11 


(1  + 


c/xA  t 
Z~ 


)  (1 


c/xAt. 

2 

M 


2 

c 

3 


(~) 

Ax 


sin  k 


Ax 

T" 


_  At  .  ,  Ax  i(kAx/2) 

2  — —  l  sin  k  — —  e  ' 

^  _  Ax  2 

12  "  "  M 

2c^  At  .  ,  Ax  -i(kAx/2) 

3  ^  1  Sln  k  Te 

C21  M 


A  sufficient  condition  for  stability  is  that  the  eigenvalues  of  C(At)  lie  within 
the  unit  circle.  The  eigenvalues  are  given  by 

2 

\  -  T\  +  A  =  0  where  T  =  trace  (C(At)) 

A  =  det  (C(At)) 

The  conditions  that  the  roots  lie  within  the  unit  circle  can  be  found  from  the 
Routh  criterion  (Ref.  12)  after  making  the  transformation  \  =  (w  +  !)/(«  -  1 ).  This 
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transformation  maps  the  interior  of  the  unit  circle  into  the  left  half  com¬ 
plex  plane.  Making  the  substitution,  one  has 

o>2(1+A-T)  +  2w(1  -  A)  +  1+  T+  A=  0 

For  a  second  order  equation  the  Routh  criterion  requires  that  the  coeffi¬ 
cients  of  the  equation  be  positive  if  the  roots  of  the  equation  are  contained 
within  the  left  half  plane.  Thus,  the  conditions  are  given  by 

(1)  A  <  1 

(2)  |  T  |  <  A  +1 

After  some  algebraic  manipulation,  one  can  show  that  conditions  (1)  and  (2) 
are  always  satisfied  independent  of  At.  Thus,  the  system  is  unconditionally 

stable . 

The  second  case  in  which  the  stability  can  be  analyzed  is  the  situation 
in  which  spatial  homogeneity  exists.  The  difference  equations  can  then  be 
written  as 

,1)  En+1  -  E”  =  *[«♦"  +  (1  -«)  *n+1  -  f>En+I  -  0 

(2)  r"+1  -  f”  =  -g(yFn+1  +  (i  -  y  )f”) 

(3)  *n+I  -  4>n  =  -Xg  Ur*”  ♦  U  -  «H>ntl  -  0En+1  -  (1  -  w”! 

where  g  =  CMit.  X  =  4a«3/pCv,  ana  Osa  ^  1,0*0*  l,and0*y*l. 

One  notes  that  the  second  equation  is  always  stable  if  y  s  l/?--  For  the 
coupled  system  of  Eqs.  (1)  and  (3),  one  has  the  following  system: 
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The  elements  of  the  amplification  msitrix  are  found  to  be 
Cn  =  [[1  -  g(l  -  P)]  [1  +  \g(l  -  a)]  +\g2(l  -  o)(l  -  P)]/Q 
C21  =  [p\g[l  -  g(l  -  P)]  +[1  +  gP]  [Xg(l  -  P)]]/Q 
C12  =  [ga[l  +Xg(l  -  a)]  +  g(l  -  a)(l  -  X.  ga )]  /Q 
C22  =  [px  g2  a  +  (1  +  gp)  a  --  \ga )]  /Q 

where  Q  =  (1  +  gp)  [l  +  \  g(l  -  a )]  -  p  X.  g2(l  -  a). 

After  some  reduction,  one  finds 

T  2  -  g(l  -  23)  +  \k(1  -  2a) 

1  +  g  p  +  g\(l  -  a  ) 


and 


1  -  g(l  -  p  +  Xtt) 

1  +  gp  +  \g(l  -  a) 

It  is  interesting  to  note  that  T  =  A  +  1.  Thus,  the  characteristic  roots 
are  given  by 

\2  -  (A  +  1)  \  +  A  =  0 
or 

A+  1  ±  +  l)2  -  4 A 

T ,  2  ~  2 


Therefore,  for  all  parameter  variations  the  roots  are  real  and  distinct 
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The  coefficientB  a  ,  f>  determine  whether  the  system  of  equations  is 
implicit  and  unconditionally  stable.  For  various  parameter  variations  the 
stability  conditions  are  listed  in  Table  III.  It  is  clear  from  Table  III  that 
the  system  of  equations  is  unconditionally  stable  when  the  equations  are 
partially  or  fully  implicit  in  both  E  and  <t>. 


Table  III 


STABILITY  CONDITIONS  AND 

ORDER  OF  ACCURACY 

Case 

1 

1 

Description 

Fully  implicit 

Accuracy 

Stability  Conditions 

a 

0 

1st  order 

Uncond.  stab. 

2 

1/2 

l 

Fully  imp.  in  E; 
partially  imp.  in 

1st  order 

Uncond.  stab. 

<t> 

1st  order 

2 

3 

0 

0 

Explicit  in  E; 

At  < - -  3 

/  4a  0  \ 

fully  imp.  in  <p 

cM  i1  "  —  ) 

y  V 

1st  order 

2PCV 

4 

1 

1/2 

Part.  imp.  in  E; 

At  <  2 

4c/iafl 

exp.  in  <p 

1st  order 

2 

5 

1 

0 

Explicit 

At  <  3 

/.  .  4a0  \ 

‘"i1  ■  pcv) 

6 

0 

1/2 

Part.  imp.  in  E; 
fully  imp.  in  (p 

1st  order 

Uncond.  stab. 

7 

1/2 

1/2 

Part.  imp.  in  both  2nd  order 

Uncond.  stab. 

E  ,<P 

For  this  simplified  system  of  equations  another  problem  of  interest 
the  amount  of  damping  in  the  system.  For  the  second  equation  one  note. 


that 

n+l  (\  -  Bd  -  El)  Fn 

F  "  \  1  +  gY  / 


or 
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,n+l 


fl  -  g(l  -y)Y 

“  L  i  +  gy  J 


Thus,  the  solution  for  the  flux  has  a  damping  coefficient  given  by 

[ l  -  g( l  -  y)]/  (1  +  gv)  wlien  y  -  1/2> 

From  matrix  theory  (Ref.  13)  one  knows  that  there  exists  a 
similarity  transformation  P  such  that 


or 


Thus,  the  equations  can  be  rewritten  as 


By  successive  subsitution,  one  has 


c- 
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At  this  point  the  significance  of  the  roots  1  and  A  becomes  apparent.  The 
root  1  corresponds  to  the  steady  state  solution,  and  the  root  A  is  the  tran. 
sient  part  of  the  solution.  Hence,  the  damping  in  the  system  can  be  con- 

trolled  by  varying  A  . 


uuuuuuuuuuuu 
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1.  7.  APPENDIX:  LISTING  OF  ERADTN  AND  PRADTN 


C*' 

C* 

c 


c* 

o 

c 


c 


c 


SUBROUTINE  RADTN 


SPUTTER  COMMON 


COMMON 
KMAX 
II 

IIP1 
FREQ 
CVA 
EMINA 
HHOL 
RPIA 
COMMON 


LM0A(37) 
.  BLANK1 
•  IG 
IGM1 
CNTMAX 
CVB 
EMINB 
RHOR 
RPIB 
TO 


DTMAX1.  UTMAX2 


GAMA 
ROIA 
S4 
S12 
S20 
ASQ 
UELR 
COMMON 
W 
V 

X3 
SMLA 
EC 

BIGb 
CHIR 


BCR  IT 
KOI  AMI 

ss 


NR 

BLANK2 

NRAO 

IALPHA 

AR 

SLUG 

CA 

EPIO 

KPDIA 

TE 

OTMAX3 

SIGMAQ 

ROIB 

S6 


COMMON 
FRLM 
ZP1 
RL 
HEAD 


NSMLR 

BLANKS 

BLANK4 

BLANK5 

ASMLR 

ALPHA 

•CB 

EPSI 

RPDIB 

DTH2 

DTR 

AC 

KOIBP1 
S7 


IA 

IAP1 
I  AMI 
TH 

PUSHA 

HVA 

GA 

RIA 

T.PRINT 

DTH2P 

SNITCH 

AC03T4 

GMS 

SB 


IB 

1BP1 

IBM1 

TMAX 

PUSHB 

HVB 

GB 

RIB 

TA 

DTH1 

CO 

CNVRT 

SI 

S9 


DRAD0020 
*****»*DRA00050 
♦♦DRAD0060 
♦ORAD0070 
ICB  .DRAD0080 
ICBP1  .DRAD0090 
ICBM1  .DRAD0100 
BLANK6.  DELPRT .DRAD0110 
BOILA  »  BOILB  .DRAD0120 
HCB  . DRAD0130 
GR  .DRAD0140 

RDIB  » DRA00150 
TC  DRADOlbO 


ICA  * 
ICAP1  » 
ICAMl  . 


HCA 

GL 

RDI A 
TB 


»  S13 

#  S14  • 

S15 

9 

S16 

»  S17 

.  Sll 

•  EO 

#  FO 

•  TAU 

9 

ZERO 

»  R 

(152). 

(152)* 

RO 

(152)# 

VD 

(152). 

RDD 

(152). 

(  37)# 

P 

(152)# 

PI 

(152). 

PB 

(152). 

P2 

(152). 

sv 

(152). 

RHO 

(152). 

(152)# 

E 

(152)# 

El 

(152). 

EK 

(152). 

(152)# 

G 

(152)# 

0 

(152). 

C 

(152). 

(152)# 

X4 

(152)# 

X5 

(152). 

X6 

(152). 

(152)# 

SMLB 

(152)# 

SMLC 

(152). 

SMLD 

(152). 

(152)# 

ER 

(152). 

SMLQ 

(152). 

SMLH 

(152). 

(152)# 

CV 

(152)  • 

BC 

(152). 

BR 

(152). 

(152)# 

CAPAC 

(152)# 

CAPAR 

(152). 

CRTC 

(152). 

(152)# 

GOFR 

(152). 

FEN 

(152). 

CAR 

(152). 

TELM 

(  37). 

EKLM 

(  37). 

ELM 

(  37). 

(  37). 

NLM 

(  37). 

QLM 

(  37). 

AMASNOt  37). 

(  37). 

ZP2 

(  37). 

SOLID 

(  37). 

ECHCK 

(  37). 

(  37). 

RHOK 

(104). 

ROK 

(104). 

THETAK ( 104) » 

(  12)# 

MAXL 

MAXLM 

DTRMIN*  DTMAX  .DRAP0170 
CMIN  .  DELTA  .DRADOlBO 
SUMRA  »  SUMRB  'DRAD0190 
S2  »  S3  .DRAD0200 
S10  »  Sll  .DRAD02 10 

»  S19  .DRAD0220 


A 

X2 


BIGA 


1152) .DRAE0240 
(152)  DRA00250 
152) »  THETA  ( 152) .0RAD0260 
( 152) .DRAD0270 
( 152) .DRAD0280 
( 152) .DRAD0290 
( 1.52) . ORAD0300 
(152) .DRAD0310 
(152) .DRAD0320 
(152) .DKAD0330 
(  37)  DRADC340 
(  37) .DRAD0350 
37) .  CHRNO  (  37) . DRAD0360 
( 104) »DRAD0370 
(  16)»DRA00380 
DRAD0390 
••DRAD0400 
♦•♦♦♦♦DRAD0410 


DIMENSION  RUC ( 1 ) •  0SX2(1J»  H2(l)*  QllDi  GUtl>»  SU(1)»  HU(1> 
DIMENSION  P0FU(1S»  SUMRH0(1)»  H(i)»  SUMX2(1>»  OLDTH(l) 
DIMENSION  Q37(l) #  Q38(l) 

DIMENSION  0LDE(152»3)»  0L0FU52»3) 

COMMON  /LINDLY/  HNUiSGNL* IHNU*NHNU*HNUP*NT » IM» IN* DHNU» THICK »NY 
COMMON/TQ/QINT1 ( 300 ) *QINT2(300> *TITLE(12) *FLU^((30) 

COMMON  /CNTRL/  SCYCLE*  JMULT 

EQUIVALENCE  (SMLA*PDFU)»  (SMLD*SUMRHO) 

EQUIVALENCE  (BC*0SX2) » (BIGB»H) » (CRTR»SUMX2) » (CHICiSU) 
EQUIVALENCE  (SMLH*GU) t (CAR*Q37) * (CHIR»Q3B) » (SMLC»OLDTH) 
EQUIVALENCE  ( AC03T4 • TRDBG) i (S12»EDITMF) 

EQUIVALENCE  (EC»Q1> » (X7»H2) » (BIGA»HU  )*(GOFR»RUC) 


DRAD0420 

DRAD0430 

DRAD0440 

DRAD0450 

DRAD0460 

DRAD0470 

DRAD0480 

DRAD0490 

DRAD0500 

DRAD0510 

DRAD0520 

DRAD0530 


DATA  ILMDA  /0/ 


EDITMF 

SAME 

AS 

S12 

H 

SAME 

AS 

BIGB 

H2 

SAME 

AS 

X7 

OLDTH 

SAME 

AS 

SMLC 

pdfu 

SAME 

AS 

SMLA 

Q1 

SAME 

AS 

EC 

RUC 

SAME 

AS 

GOFR 

Q37 

SAME 

AS 

CAR 

Q38 

SAME 

AS 

CHIR 

SUMX2 

SAME 

AS 

CRTR 

♦DRAD0550 

•DRAD0560 

♦DRAD0570 

•DRADO^ao 

♦DRA00590 

NDRAD0600 

♦DRA00610 

♦DRAD0620 

♦DRAD0630 

♦DRAD0640 

♦DRAD0650 

4DRAD0660 
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SU  SAME' AS  CHIC 
HU  SAME  AS  HISA 
TROBG  SAME  AS  AC03T4 
GU  SAME  AS  RMLH 
SUMRHO  SAME  AS  S'MLD 


NONEQUILIBRIUM  RADIATION  DIFFUSION  AS  IN  LA-3377 

FOR  ORADTN  ANO  ERAOTN.  NY  (IN  LINOLEY  COMMON)  IS  TEMPERATURE 
ITERATION  INOEX.  THIS  IS  USEO  IN  A  SPECIAL  DIANA  THAT  GOES  WITH 
ORADTN  ANO  ERAOTN. 


•DRADObTO 

•DRAD06B0 

•DRAD0690 

♦DRAD0700 

♦nRADOTlO 

•DRA00720 

**DRAD0730 

DHAD0780 


DRAD0820 

►DRAD0830 


INITIALIZATION  ANO  CALCULATION  FOR  NO  VAPOR  ZONES 


CALL  OVCHK(KOMY) 

NTIMESsBOILb 

1M-1BM1 

IN=U 

IDMHNU  =  3 

IF  (KM AX  .EQ.  0)  OHNU  =  1. 

IF(ZP1 (26) .EQ.O. )  GO  TO  15 

SAVE  STUFF  FROM  EIONX  FOR  NONEQ  AND  RESET  IN  OR  IM 

IF  (PUSHA  .LT.  0.0)  GO  TO  100 

IM  -  NR  -  1 

CALL  N0NEQ(IMU*4) 

GO  TO  15 
IN  =  NR 

CALL  NONtQ( IN-i .4) 
i  CONTINUE 
IMPUIMM 
INMisIN-l 
INP1  s  IN  *  1 

IF  ( IMP1  -  IN)  20*  20*  25 

CALCULATE  BLACKBOOY  EMISSION  ANO  EXIT  IF  NO  VAPOR  ZONES 

l  X2UMP1)  =  1.0275E12  *  A(IMPl)  •  (THETA(IM)**A  -  THETA(IMP1)**4) 
ER(IM)s-X2(IMPl) 

GO  TO  1300 
i  NVEZ  s  1 
NY  =  NVEZ 

IF(CVB.EU.O.O)  NVEZ  =  2 
VEZ  =  NVEZ 

FORM  INTERPOLATION  QUANTITIES  FOR  OPACITY  SUBROUTINE 

DO  107b  I~IN* IM 
0SX2( I)  =  0. 

Q37(I)=AL0G(THETA(D) 
j  Q38 ( I ) - ALOG ( SV ( I ) ) 

0SX2(IMP1)  =  0. 

OBTAIN  ROSSELANO  ANO  PLANCK  OPACITIES  FOR  ENTIRE  SPECTRUM 
(REQUIRES  DIANE  TAPE  HAVING  MONOFREQUENCY  OPACITIES  FIRST) 

IHNU  =  0 

CALL  KAPPA(IN.IM) 


DRA00840 

DRA00850 

ORAD0860 

DRADOBTO 

ORADOBfiO 

DRA00900 

DRAD0910 

ORA00920 

DRAD0930 

ORAD0940 

DRA00950 

ORA00980 

DRA00970 

ORA00980 

DRA00990 

OHADIOOO 

ORAOIOIO 

DRAD1020 

ORAD1040 

DRAD1050 

DRADlObO 

DRA01C80 

DRA01090 

DRAD1110 

DRAD1120 

DRAD1130 

DRAD1150 

DHAD1170 

ORA01210 

DHAD1220 

DRA01230 


DRAD1240 

DRA01250 


* 


t~>  a  o  non  non  nnn  non  nnn  nnnnn 
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***************************************************** »*******«*********f}pAQi 260 

dhadi27o 

minimum  time  STEP  CALCULATION  OHAO12A0 

DHAD1290 

******************************************************************* ***»OKA01300 


wsu  =0.0 

UO  107b  1  =  1.  MAXLM 

107b  WSb  =  WSb  +  LLM( I ) 

OTHlSl.ElO  UHAD1310 

UTK2=1.E10  OK AD1320 

1080  UO  1230  I=IN*IM  '  DKAD1330 

OHAD1340 

CALL  UNCLE  IF  EITHER  KAPPA  IS  ZERO  OR  NEGATIVE  DHAD1350 

ORAO1360 

IF  (AMIN1(CAPAC(I) .  CAPAK ( I ) )  ,GT.  0.0)  GO  TO  1120  DKAD1370 

S1=13.1U90  OHAD1300 

CALL  UNCLE  ORAO1390 


SOLID! 10)  NOT  ZERO  GIVES  ALL  ROSSELANU  OPTION 


1120 


1123 

112b 

1160 


116b 

1170 


1172 


IF (SOL lU(lO).EQ.O.O)  GO  TO  1123 
TEMP ( 1 )  =  CAPAR(I) 

TEMk(3)  =  CAPAR(I) 

GO  TO  1125 

TEMP (1 ) =SORT (C APAR ( I ) *CAPAC ( I ) ) 
TEMP (3)  =  CAPAC(I) 


IF (0.001  -  THETA ( I ) )  1160.1230.1230  URAD1480 

HU!  =  0.5  *  TEMP!  1 )  /  SV(I)  *  DELTAR(I)  UHAD1490 

TEMP(l)  =  1.E10  ORA01500 

TEMP!2)  =  1.E10  OKAD1510 

IF  !TELM(37)  .EG.  0.0  .OR.  ER(I)  .EG.  0.0)  GO  TO  1170 

WSBB  =  Ed)  *  G  ( I )  ORAO1530 

IF  !WSbb  -  TELM! 37 )  *  WSB)  1170.  1165.  1165  DHAD1550 

DRAD1560 


ACCURACY  CRITERION  -  DONE  FOR  FULLY  AND  PARTIALLY  IMPLICIT  CASES 

DR AD 1580 

TEMP(l)  =  SLUG  *  WSbb  /  A8S(ER(I) ) 

IF  (KMAX  .EG.  0  .AND.  HV8  .NE.  0.0)  GO  TO  1172  DRAD1600 

DRAD1610 

STABILITY  CRITERION  —  BYPASSED  IN  FULLY  IMPLICIT  CASE  DRAD1620 

OKAD1630 

TEMP!2)  =  CV(I)  /  (2.066E12*TEMP(3)*THETA( I)**3) 
fEMP(3)  s  TEMP! 2) *3.*H( I )**2 
TEMP!2)  =  AMIN1ITEMP12) .TEMP (3) ) 

TEMP!2)  =  AMINKTEMP(l).  TEMP(2)) 

TEMP (2)  =  TEMP (2) *TELM(25) 


FIND  MINIMUM  TIME  STEP 


DRAD1680 


1190 

\200 


1210 

L220 


L23C 


IF  ( TEMP ( 2 ) )  1230.1230.1190 

IF  !TEMP!2)-DTR1)  1200.1210.1210 

DTR2=DTR1 

IMN2=IMN1 

DThl=TEMP(2) 

IMN1=I 
GO  TO  1230 

IF  (TEMP(2)-DTK2)  1220.1230.1230 
0TR2=TEMP(2) 

IMN2=I 

CONTINUE 

DTRMIN=UTR1 

E0=IMN1 


SET  UP  MINIMUM  TIME  STEPS  BETWEEN  EDITS 


DRAD1700 

DRAD1710 

DRAD1720 

DRAD1730 

DHAD1740 

DRAD1750 

DHAD1760 

DRAD1770 

DRA01780 

DRAD1790 

DRAD1B00 

DRAD1B10 

DRAD1820 

DRAD1830 

DRADlh40 

DRAD1850 
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IF  (UTRl ~TELM (26 ) ) 
1240  TLLM (26 ) =0TR1 
TLLM(27)=IMN1 
TELM(28)=0TR2 


1240* 125  J , 1250 


TELM(29)=IMN2 

telm(3o*=soliu(1m)+i.o 

1250  CONTINUE 
C 

C  DETERMINE  IF  RADIATION  OR  HYDRO  WILL  SUHCYCLE 

V  f 

IF(UTHMIN-DTN)  1280  *  125  *  1260 
1260  DLANK3=TH*AMIN1  (OTHMIN ,6K*DTH2 ) 

IF (S17)  125*1270*126 
1270  S9  =  1.0 
60  TO  12b 
C 

C  REDUCE  TIME  STEP 

C 


OH AO I860 
ON AD1870 
OKAO18R0 
OKADIB90 
OR A01900 
ORA01910 
OKA01920 
OH  AD  19.10 
ON A01940 
ORAD1950 
OR A01960 
ORAD1970 
DRA019HO 
OR A01990 
OR A02000 

ORAD2020 


128C  NRAD=2P1(18)/DTHMIN+1,0 
UTR=2Pl(18)/FL0AT(NRA0) 

IF (NRAD“NT I MLS)  125.125*1290 
1290  51=13.1290 
CALL  UNCLE 
125  THT AMX= • U25 


OR AD2040 
OR A02050 
OR A02060 
OR A02070 
UR AD2080 
OR A02090 


C*** *********************** *** **********♦%*********************** *******0HAr)210Q 

C  CALCULATE  GEOMETRY  FACTORS  AND  FI, ‘ID  HIGHEST  TEMPERATURE  DRA02120 

C*********************m********************m**************************SrI5I!40 

DO  100  I-IN.IM  0RAD2150 

GO  TO  (132.  134,  136),  I  ALPHA  ORAO2I6O 

C  SLABS  RKAD217° 

C 

132  pdfuc:  =  1.  /  (C  ( 1  +  1 )  -  cun 

RUC  (1*1)  =5. 0E9  /  ( C  ( I  +2 )  -  C(I)) 

GO  TO  13m 
C 

c  CYLINDERS 

C 

134  PDFU(I)  =  1«  /  (C(I+1)**2  -  C ( I ) **2 ) 

RUC(I  +  1)=1,0L10  *  C(I*1>  /  ( C ( I  +2 )  -  C ( I ) ) 

GO  TO  138 

C 

C  SPHERES 

C 


136  PUFU(I)  =  1.  /  (C(U1)**3  -  C  ( I )  **3) 

HUC( 1*1 )=1.5E10  *  C ( I +1 ) **2  /  (C(I+2)  -  C(l)> 
138  IF  (THETA(I)  .LE.  THTAMX)  GO  TO  180 
THTAMX=THETA( I ) 

180  CONTINUE 


OR AD2180 
0RAO2190 
ORA02200 
DRA02210 
0HAD2220 
DRAD2230 
OHAD2240 
OHA02250 
ORAD2260 
ORAD2270 
OHAD2280 
ORAD2290 
OR AD23U0 
DRAD2310 


OHAO2320 

ORAD2330 

ORAO2340 

0HA02350 

ORAO2360 


{£  lluZiU?  *M*  :AN0*  GL  ,GT’  0,)  THTAMX  =  THETA(ID)  OHAD2370 

/n  ZI  m  *2  *AN0,  GA  ,GT*  0,)  THTAMX  =  THET  A  ( I  A“1  )ORAO2380 

GO  TO  (182*  184*  18o),  IALPHA  DKAD239Q 

C  BOUNDARY  QUANTITIES  DRA02400 


182  TSLH  =  1. 

TSRH  =  1. 

GO  TO  188 

184  TSLH  =  C (IN)  +  C(IN) 

TSRH  =  C(IMPl)  ♦  CIIMP1) 
GO  TO  188 

186  TSLH  =  3.  *  C(  IN) 4*2 
TSRH  =  3,  *  C ( IMP1 ) **2 


DRA02420 

0RAD2430 

DRAD24L0 

DRAD2450 

ORA02460 

DHAD2470 

DRAD2480 

DRAD2490 

ORAD2500 
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IBS  CDT  =  1.2E11  ♦  DTR 
HCDT  si./  CDT 
ROTH  s  1.  /  DTR 
CA-.L  DVCHK(KDMY) 

GO  TO  (190.  200) .  KUHY 
190  SI  =  13.0190 
CALL  UNCLE 


ORAD2520 


20C 


DO  210  I=IN.IM 
X3 ( I ) so . 

X4 ( I ) so  • 

XS(  1)=0. 

X6 ( 1 ) so  • 

LK ( I )  s  o. 
SUMX2 ( 1 )  =  0. 
SUMRHO ( 1 )  s  0. 


ZERO  X3»  X4 .  X5»  X6  (IN  CASE  MERGE  FREQUENCIES) 

AND  ER»  SUMX2 »  SUMRHO  (FOR  FREQUENCY  INTEGRATION) 

DKA02540 
ORAD2S50 
DKAD2560 
DRAD2570 
DRAD2580 
DRA02590 
DRAD2600 
DKAD2610 
ORAD2620 
DRAD2630 
DR AD2640 
DRAD2650 
DRAD2660 
DRA02670 

c  DR AD2600 

c  DRAD2690 

C ************************************** *****************4  ***'  , ******** **OKAD2700 
c  *DRAD2710 

C  8LGIN  FREQUENCY  LOOP  *DRAD2720 

c  *DRAD2730 

C** *********************  *<» ********** ***************  ******* ***********()KAD274n 


SET  UP  FOR  KAPPA  INTERPOLATION 


210  Ql(I)STHLTA(I)**4 
SUMX2 ( IMP1 )  s  0. 


220 


SET  UP  MAX  FREQ  BOUNDARY 

HNUP=1.0E6 

HNUP4S1.UE24 

IF  (KMAX.EQ.O)  GO  TO  280 
IHNU  S  IHNU  +1 
CALL  KAPPA(IN.IM) 

HNU4sHNU**4 
UHNUP  s  UHNU 
DHNU  s  KNUP  -  HNU 

MERGE  GROUPS  WITH  HNU  MORE  THAN  CB  TIMES  LARGEST  THETA 
DON'T  KNOW  HOW  TO  MERGE  E  AND  F.  NO  MERGE  FOR  NOW 

CBsl.OElO 


OR AD2750 
OR AD2760 
DRA02770 
[)RAO27fl0 
DRAO2790 
DRAD2800 
ORAD2810 
ORA02820 
DHAD2830 
OR AD2840 
DRAD2850 
DRA02860 
OHAD2870 
ORAD2880 


IF  (CU  .GT.  0.0)  GO  TO  225 
SI  s  13.02? 

CALL  UNCf 

225  IF  (TH'mMX  -  HNU  /  CB)  240 »  230.  230 
230  IF  (I>,(U  -  1)  235.  370.  260 

235  SI  '  13.0235 
C'-L  UNCLE 
C 

C  REJECT  TAPE  IF  MORE  THAN  HALF  OF  GROUPS  MERGE 

C 

240  IF  (IHNU+IHNU-NHNU)  260.250.250 
250  IF  (AMOOtCB.l.)  .EQ.  0.5)  60  TO  260 

S1S13.0250 
CALL  UNCLE 
260  DO  270  ISIN.IM 
BETASHNU/THETAU) 


OKAD2890 

DRAD2900 

DRAD2910 

ORAD2920 

ORAD2930 

DHA02940 

DRAD2950 

DKAD2960 

DRAD2970 

DRAD29B0 

DRA02990 

ORAD300L 

DRA03010 

DRAD3020 

DRA03030 

DRAD3040 


/ 
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betap=hnup/theta< I) 

UFB=PLNKUT (BE  TA  *  HE TAP ) 

IF  (DFB.EQ.O.)  SO  TO  270 
TEMPI  1 ) =UFB*Ol ( 1 ) 

EMBlsEXP ( “BETA ) 

EMD2sEXP(-BETAP) 

TEMP(2)=UFB+0.03U4974/Ql< I)*(HNU4/< l.O-EMBl) 

I ♦EMB1-HNUP4/ ( 1 . 0-EMB2 ) +EMB2 ) 

C 

C  FOKM  NUMERATORS  ,AND  DENOMINATORS  OF  MERGED  KAPPAS 

C 

Xb(I>=Xb<I)+TEMP<l> 

X4 ( I ) -X4 ( I ) +TEMP ( 2 ) 

Xb( I )=Xb( I )+CAPAC( 1 ) *TEMP ( 1 ) 

X3<I>=X3(I>+TEMP<2>/CAPAR(I> 

270  CONTINUE 
HNUP=HNU 
HNUP4=HNU4 

IF  (THTAMX-  HNU/CB >  220*310*310 


C 

C 

C 


C 

C 

C 


C 

C 

C 


C 

C 

C 


FORM  MERGED  KAPPAS 

310  DO  3b0  I-IN* IM 

IF  (Xb(I)>  320*350*330 
320  Sl=13.0320 
CALL  UNCLE 

330  CAPAR(I)=X4(I)/X3(I) 
CAPAC(I)=X5(I)/X6(I) 

350  CONTINUE 
HNUPS1.0E6 
HNUP451 . 0E24 
DHNU  =  HNUP  -  HNU 
GO  TO  480 


MONOFREQUENCY  CALCULATION 


280  NHNU=1 

I HNU  =  I 
00  290  I=IN*IM 
290  X6<I)=Ql(I> 

HNU  s  .001 
GO  TO  480 


FREQUENCY  GROUP  CALCULATION  OF  SOURCES 


360  I HNU  =  I HNU  M 
CALL  KAPPA ( IN *IM> 

OHNUsHNUP-HNU 

HNU4sHNU+*4 

370  00  392  I  =  IN*  IM 

OFB  =  PLNKUT (HNU  /  THETA ( I ) *  HNUP  /  THETA(I) > 
392  X6(I)=0FB*QH1> 


SET  BOUNOARY  CONDITION  FOR  LEFT  HANO  SIDE 


480  IF  ( 1NM1 )  490*  510*  500 

490  51=13.0490 
CALL  UNCLE 

500  IFCKMAX  .EQ.  0)  GO  TO  501 

IF  (THETA(INMl)  .LE.  0.0)  THETAUNM1)  =  1.0E-5 
DFBsPLNKUT (HNU/THETA( INM1 ) *  HNUP/THETA ( INMl ) > 


GO  TO  502 

501  OFB=l. 

502  CONTINUE 

BBSL  =  OFB  *  THETA (INM1)**4 


OR AD3050 

URA03060 

DRA03070 

DRAD30B0 

ORAD3090 

DRAD3100 

ORAD31IO 

ORAO3120 

DRAD3130 

ORAD3140 

OR AD3150 

DRAD3I60 

ORAD3170 

ORAO31B0 

ORA03190 

DRA03200 

DRAD3210 

OR AD3220 

DRAD3230 

0RAD3240 

ORAD3250 

DR A03260 

ORAD3270 

ORAD32BO 

DRAD3290 

ORA03300 

ORAD33I0 

DRA03320 

ORAD3330 

DRA03340 

OR A03350 

ORAD3360 

DRAD3370 

ORAD33B0 

ORAD3390 

ORAD3400 

DRAD3410 

ORA03420 

ORAD3430 

DRAD3440 

ORAD3450 

ORAD34BO 

DRAD3470 

DRA03490 
ORAD3500 
OR A03510 
ORAD3520 
0RAD3530 
ORA03540 
DRA03550 
DRAD3560 
DRAD3580 

DRAD3600 

ORAO3610 
OR A03620 


ORAD3640 
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GO  TO  520 

c 

c  NO  BOUNDARY  CONDITION  FOR  GA  .  GT.  0.0 

C 

510  IF  (GA  .GT,  0.0)  GO  TO  515 
IF  (GA  .EQ.  0.0)  BBSL  =  0. 

GO  TO  520 
515  51  =  13.0515 
CALL  UNCLE 
C 

C  SET  BOUNDARY  CONDITION  FOR  RIGHT  HAND  SIDE 

C 

520  IF  (GL  .tO.  0.0)  X6(IMP1)=0.0 
IF  (CL.Nb.0.5)  GO  TO  530 
IF  (KMAX  .NE.  0)  GO  TO  522 
DFB  =  1. 

GO  TO  525 

522  UFb  =  PLNKUT (HNU  /  THETA( IMP! ) t  HNUP  /  THETA (IMP1)) 

525  Xb'(IMPl)  =  OFB  *  THETA ( IMP1 )  **4 
C 

C  SPECIAL  RIGHT  BOUNDARY  SOURCE  (GL  A  POSITIVE 

C  INTEGER)  NOW  INCLUDED 

C 

530  IF(GL.GT.O.b)  XblIMPI)  =  FLUX  (IHNUJ 
t,DR=-X6(IMPl)  6 

C 

C  FORM  ROSSELAND  AND  PLANCK  OPTICAL  DEPTHS 

C 

H3M  =  CAPAR(IN)  /  SV(IN)  *  DELTARdN) 

DO  500  I-IN> IM 

IF  ( AMIN1 (CAPAC ( I ) *  CAPAR(I))  ,GT .  0.0)  GO  TO  560 
51=13.0550 
CALL  UNCLE 
C 

C  FOR  NONEQUILIbRIUM  DIFFUSION.  H  AND  H2 

C  ARE  MU  AND  ( 1 ./( 4. ♦LAMBDA ) )  RESPECTIVELY . 

C 

560  H ( I )  =  CAPAC ( I )  /  SV(I)  ♦  1.5E10 

IF (SOLID ( 10 ) .NE • 0 •  0)  H(I)  =  H ( I ) ♦CAPAR ( I ) /CAPAC 1 1 ) 

SU(I>  =  2.74L2  ♦  H ( I )  ♦  X6(I) 

IF  (I  . tu.  IM)  GO  TO  500 
C 

C  WARNING  -  ASYNCHRONISMS  IN  SV  AND  DELTAR  LEAD  TO 

C  ERRONEOUS  FLUCTUATIONS  IN  H3.  THIS  CAN  BE  FIXED 

C  BY  SUBSTITUTING  G  IN  PLANES.  BUT  SPHERES  WILL 

C  STILL  HAVE  THIS  TROUBLE. 

C 

576  H3P  5  CAPAR(I-H)  /  SV(im  ♦  DELTAR  ( I +1)  * 

C 

C  FOR  SHAHP  CHANGES  IN  OPTICAL  DEPTH.  USE  THINNER  ZONE  TO  DEFINE  HP 
C 

CAVEAT,  TROUBLE  IN  SCATTERING  PROBLEMS  -  CODE  CHANGES  SOON 
C 

IF ( ABS(H3M-H3P) /(H3M+H3P) .LE. AC )  GO  TO  576 
H2 ( I+l ) =.25^AMIN1 (H3M/DELTAR ( I ) , H3P/DELTAR ( I+l ) ) 

GO  TO  500 

570  H2 ( I+l )  =  (H3M  +  H3P)  ♦  0.25/  (DELTAR(I)  ♦  DELTARJ I  +  l) ) 

560  H3M  =  H3P 
C 

C  INITIALIZE  E  SUPER  N  AND  F  SUPER  N 

C 

IF  (NVEZ  . EU.  2  .AND.  CVb  .NE.  0.0)  GO  TO  592 
IF  (SOLID! 10)  .GT.  0.0  .AND.  LMDA(2b)  .EG.  0)  GO  TO  565 
LM0AI26)  =  0 
DO  583  I  =  IN.  IM 


DRAD3650 

DRAD3660 

DRAD3660 
OR AD3690 
DRA03700 
ORAO3710 
ORA03720 
DRA03730 
OHAO3740 

OR A03760 
ORAD3770 
ORAO3760 


ERAD3790 

ERAD3800 

DRAD38I0 

ORAD3620 

ORAD3840 
OR AD3650 
ORAD3660 
ORAD3870 
OR AD3860 
0RAD3890 
UHAD3900 
ORAO3910 
DRAO3920 
DRAO3930 
OR AD3940 
DRAD3950 
OR AD3960 
ORAD3970 
ORAO3960 
OR A03990 
OR AD4000 
ORAD4010 
ORAD4020 
DRA04030 
DRAD4040 
ORAD4050 
DRA04060 
(1RA04070 
ORAO4080 
DRAD4090 


ORAO41Q0 
ORAD4110 
ORAD4I20 
OR AD4130 
DHAD4170 


/ 

/ 
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OLDE(I.IHNU)  =  137. U  *  X6(I) 

583  OLUF ( I. IHNU)  =0.0 
OLUF ( IMP1. IHNU)  =  0.0 
GO  TO  592 

b85  IF  ( SOLID ( IB)  .GT.  jCYCLE  .OR.  ILMfjA  ,  EQ.  12345)  GO  TO  592 

587  KEAU  '13)  TESTC.  ( OLDE ( I » IHNU) »  OLDF ( I . IHNU) •  1  =  1*15?) 

IF  (IHNU  .GT.  1)  GO  TO  592 

IF  ( TtSTC  -  50L IU ( 18) )  587.  592.  590 

590  SI  =  13.0590 
CALL  UNCLE 
C 

C  EXTRAPOLATION  COEFFICIENTS  TO  FORM  RADIATION 

C  ENERGIES  AT  UOUNOARIES 

C 

592  BETA1  =  1.0  /  (2.0  -  EXP < -DELTAR ( IN)  *  SQRT(CAPAR( IN)  *  H(IN)  * 
2  5.0E-11  /  SV ( IN) ) ) ) 

5ETA2  =  1.0  /  (2.0  -  EXP(-DELTAR( IM)  *  SORT ( CAPAR ( IM)  *  H(IM)  * 
2  5.UE-11  /  SV ( IM ) ) ) ) 

CALL  DVCHK (KUMY ) 

GO  TO  (588.  589).  KUMY 

588  SI  =  13.0588 
CALL  UNCLE 


ORAD4180 

DRAD4190 

DRAD4200 

DRAH4210 


C*  *******  ***************************  *********  ********  ******************  *|-)HAQ42bO 
C  ORAD4270 

C  NONEQUILIBRIUM  DIFFUSfON  TREATMENT  ORAD4280 

c  ORAD4290 

C  FORM  COEFFICIENTS  OF  IMPLICIT  EQUATIONS  ORAD4300 

£  DRAD4310 

C** ************************************************* ♦♦♦♦^♦♦*************nHAD4320 

C  DRAD4330 

589  IF(INPl-IM)  593.593.1500  DRAD43U0 

c  0RAD4350 

C  SPECIAL  CASE  -  SINGLE  VAPOR  ZONE  DRAD4360 

c  DRAD4370 

1500  CONTINUE  DRAD43H0 

BU  =  2.*H( IN)  +1.5E10*(TSRH*BETA2  +TSLH*BETA1 ) *PDFU( IN) *RDTR 
UU=2. 055E12*PUFU ( IN) * ( BBSL*TSLH*HETA1-BBR*TSRH*BETA2) 
l  ♦Rt)TR*OLDE (IN.  IHNU) 


IF  t KMAX .EQ. 0. AND.HVB.NE.O • 0) GO  TO  1550  DRAD4410 

c  DRAD4420 

C  PARTIALLY  IMPLICIT  -  MULTIFREQUENCY  CASE  DRAD4430 

c  DRAD4440 

1530  CONTINUE  DKAD445Q 

RHO( IN ) = ( SU ( IN) +UU) /BU 


GO  TO  669  * 

C 

C  FULLY  IMPLICIT  TERMS 

C 

1550  GO  TO ( 1595. 1596) . MVEZ 
C 

C  NO  ITERATION 

C 

1595  T4=Ol ( IN) 

GO  TO  1597 

1596  IF(CVB.EU.O.O)GO  TO  1595 
C 

C  ITERATION 

C 

T4=0LDTH(IN)**4 

1597  TEMP(1)=5»48E2*THETA( IN)* *3 
TEMP(2)=G(IN)*RDTR*CV( IN) 

DENOM=TEMP ( 2 ) /H ( IN ) *TEMP i 1 ) /PD FU ( IN ) 

BU=8U-2 . *H ( IN) /PUFU( IN ) * TEMP < 1 ) /DENOM 

SU(IN)  =  (SMLQ(IN)  -  (PB1 ( IN)  ♦  P<IN)>  *  VO(IN))  *(TEMP(1)  / 

2  DENOM)-  ( TEMP ( 2 ) /DENOK >  *  2.74E2  •  T4 


DRAD4480 

DRAD4490 

DRAD4500 

DRAD4510 

DRAD4520 

DRAD4530 

DRA04540 

DRAD4550 

DRAD4560 

DRAD4570 

DRAD4580 

OHAD4590 

DRAD4600 

DRAD4610 

DRAD4620 

DRAD4630 

DKAD4640 

DKAD4650 

******** 

******** 
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00  TO  1530 

LEFT-HAND  BOUNDARY  CJN01TI0N 

b93  «U1  =  1.  /  <HC0T  ♦  H2(IN*1)) 

HU1  =  RUC(INU)  *  0U1 
CU  s  -POFU(IN)  *  KU1 

UU^-SSTS^S^iKN-tHNiJ-POFU*  IN»  «C0T*0L0F <  1N+1 . 1«NU » 

IF  (KMAX  .E0.  0  .AND.  HV«  .NE.  0.0)  60  TO  59 

UU  s  DL*  -  SU(IN) 

GO  TO  b9tt 

fully  implicit  terms 

S94  00  TO  (b95.  b96) »  NVEZ 
NO  ITERATION 

59b  T4  s  <31  ( IN) 

596  IF  (CVB  .EO.  0.0)  60  TO  595 

ITERATION 

T4  =  OLOTH(  IN)  **?t  .  ,  , 

597  TEMP(l)  -  S.4BE2  *  THETA ( IN) **3 

TFMP  2  s  G( IN)  *  RUTR  *  CV < IN)  .  , 

HFNQM2-  TEMPI 2 )  /  H( IN)  ♦  TEMP 1 1 )  /  PDFU(IN) 

BU  =  BU  Il”*i<IN)/PDFU<IN)  *  TEMPU)  /  DENOM 

2°!i(iN?»  I  vSi^lTEMmi”/  DENOM)-  ( TEMP ( 2 )  /DENOM ,  *2 . 

59b  IF  ( INM1 )  990.  000.  610 

600  IF  (GA  .LT.  0.0)  60  TO  520 

610  TS1  s  PUFU(IN)  *  TSLH  *  1.5E10  *  OETA1 
bU  =  bU  ♦  TS1 

OU  =  UU  -  TS1  *  137.0  *  UBSL 
620  GU ( IN)  =  BU  /  <CU  -  UU) 

HU(IN)  s  DU  /  (CU  -  UU) 

IFdNPl-IM)  630.650.625 
62b  SI  =  13*0625 
CALL  UNCLE 


.74E2*T4 


DRAD4690 

ORAO4700 

DRAD4710 

DRAD4720 


DRAD4740 


ORA04770 
DRAD47B0 
DRAC4790 
DRAT34B00 
ORAD4B10 
DRA04020 
DRAD4B30 
DRAD4B40 
ORAD4B50 
DRA04B60 
ORAD4B70 
DKAD4BB0 
ORA04B90 
DRAD4900 
DRA04910 
OKAD4920 
DRAD493'' 
DRAD4940 
DRAD4950 
ORAD4960 
DRA04970 
******** 
******** 
ORA05000 
ORAD5010 
DR AD5020 
DRAD5030 
ORAD5040 


GENERAL  CASE  FORWARD  PASS 


630  IMM1  =  IM  -  1 

DO  640  I  =  INPlt  IMM1 
OU2  Si./  (WCOT  ♦  H2( 1*1) ) 

HU2  =  RUC(Kl)  *  QU2 
AU  S  -PUFU(l)  *  RU1 
CU  =  -PDFU(l)  *  RU2 

Si :  *  "C°T  *,°u2  * 0LDF 

1  -“Ul  *  HVB  0.0>  .0  TO  65. 


DRAD5070 

DKAD50B0 

DRAD5090 

DRAD5100 

DRAD5110 

DRAD5120 

DRAD5130 

DRAD5140 


ORAD5160 

DRAD5170 


UU.IHNU) 


IF  (KMAX  «E<3.  0 
OU  *  OU  -  SU(I) 
GO  TO  63b 


FULLY  IMPLICIT  TERMS 


634  GO  TO  (635.  636).  NVEZ 

NO  ITERATION 

635  T4  =  OKI) 


DRAD5200 
ORAO5210 
ORAD5220 
DRAD5230 
DRAD5240 
DR AD 5250 
DRAD5260 
DRAD5270 
OHAO52B0 
ORAD5290 
ORA05300 
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GO  TO  637 
636  If  (CVS  ,EQ. 


GO  TO  635 


ITERATION 


T4  =  OLDTHU  )**4 
637  TEMPI 1)  =  5.46E2 
TEMP (2}  =  G( I  ) 
DENOM  =  TEMP (2) 
BU  =  BU  -2.*H(I) 


5.46E2  *  THETA(I)**3 
G ( Z  )  *  RDTR  *  CVII  ) 

EMP (2)  /  H(I  )  ♦  TEMP(l)  /  PDFUII) 
2.«H(n/  PDFUII  )  .*  TEMP(l)  /  OENOM 


DU  =  DU  -  I  SMLQ(I)  -  (PBl(l) 


2  PID)  *  VOID)  *  I  TEMPI  1)  / 

638  DENOM  =  BU  -  CU  ♦  AU*GU(I-1) 
GU(l)  =  <-BU  -  AU*GU(I-1))  / 
HUH)  =  -IOU  ♦  AU  *  HUII-D) 
GUI  £  GU2 
RU1  =  RU2 
640  CONTINUE 


DENOM)-  I TEMP (2) /DENOM) 

OENOM 
/  OENOM 


RIGHT-HAND  BOUNDARY  CONDITION 

650  AU  =  -PDFUIIM)  *  RU1 

BU  =  ROTH  ♦  H(IM)  ♦  HUM) 

DU  =  -RDTR  *  OLDEUMUHNU)  -  POFUUM)  * 
IF  (KMAX  .EG.  0  <NO.  HVB  .NE.  O.fr)  G 
DU  s  DU  -  SUt IM) 

GO  TO  658 

FULLY  IMPLICIT  TERMS 
654  GO  TO  (655.  656).  NVEZ 


DRAO5310 

ORAD5320 

DRAD5330 

DRAD5340 

0KAD5350 

DRAD5360 

DRAD5370 

DHA053B0 

DKAD5390 

DRA05400 

******** 

T4******** 


DRAD5450 

DRA05460 

DRAD5470 

DRAD5480 

DKAD5490 

DRAD5500 

DRAD5510 


*  RCOT  *  QU1 
GO  TO  654 


OLDFIIM.IHNU) 


NO  ITERATION 


655  T4  =  01 (IM) 
GO  TO  657 

656  IF  (CVB  .EG. 


GO  TO  655 


ITERATION 
T4  =  OLDTH I  IM) **4 

657  TEMP(l)  s  5.48E2  •  THETA <IM)**3 
TEMP  1 2)  =  G(IM)  *  RDTR  •  CVIIM1 
DENOM  =  TEMP (2)  /  HUM)  ♦  TEMP(l)  / 
BU  =  BU  -2.*H(IM)/POFU(IM)  •  TEMP(l) 
DU  3  DU  -  (SMLQIIM)  -  (PB1UM)  ♦ 

2  P I IM) )  •  VD(IM))  * (TEMPI 1)  /  DENOM 

658  IF  (GL  .LT.  0.)  GO  TO  660 

TS1  s  PDFUIIM)  *  TSRH  *  1.5E10  •  BET 
F.U  s  BU  ♦  TS1 

‘  DU  =  DU  ♦  TS1  ►  137.0  •  BBR 
660  GU I IM)  =  -1. 

HU  I  IM)  s  -I DU  ♦  AU  *  HUIIM-D)  /  (BU 


PDFUIIM) 
)  /  DENOM 


DENOM ) -  I  TEMP (2  > /DENOM ) *2 . 74E2*T4 

ft 

•  BETA2 


AU  *  GUIIM-D) 


ORAD5540 

DRAD55S0 

DRAD5560 

DRAD5570 

DHAD55R0 

DRA05590 

DRAD5600 

DRAD5610 

DRAD5620 

DRAO5630 

DRAD5640 

DRAD5650 

DRAD5660 

DRAD5670 

DRAD5600 

DRAD5690 

DRAD5700 

DRA05710 

DRAD5720 

DRAD5730 

DRAD5740 

DRAD5770 

DRA05780 

DRA05790 

DRAD5800 


FORM  RADIATION  ENERGY.  FLUX  AND  RADIATION  SOURCE  ER. 


►DRAD5830 

DRAD5B40 


ORAD5B60 
*DR AD5B70 
DRAD5BB0 
DRAD5B90 


DO  670  I  =  IN.  IM 
IBK  *  IN  ♦  IM  -  I 

RHOIIBK)  =  (GUI IBK)  ♦  1.)  *  RHOlIBK+1) 
IF  (RHOIIBK)  .GE.  0.0)  GO  TO  670 
SI  s  13.0669 
CALL  UNCLE 
670  CONTINUE 


HU I IBK) 


DRAD5910 

DRA05920 

DRAD5930 

ORA05940 
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c  CHECK  ON  BOUNDARY  X2*S  BYPASSED  FOR  NOW 

V 

669  IF (I NM1 )  490 » 671  *  673 

671  IF  (GA)  672 i  673.  b73 

672  X2( IN)  =  0.0 
GO  TO  674 

673  X2< IN)  s  <2.055E12*BBSL  -1 .SElO*RHO( IN) ) *TSLH*BETA1 

674  IF(GL>675»678»678 

675  X2<IM?1)  s  0.0 
GO  TO  679 

678  X2< IMP1)  =  (2.055E12*B(JR  +1 .5E10*RHO( IM) ) *TSRH*BETA2 
IF(IM-INP1)?00» 679.679 

C 

C  FORM  FLUXES 

C 

679  DO  680  I  =  INPli  IM 

680  X2(I)  =  (RCDT  *  OLDF (It IHNU)  ♦  RUC(I)  *  (HU(I-l) 

1  ♦  GU(l-l)  *  RHO(  I ) ) )  /  (RCDT  ♦  H2(D) 

CALL  DVCHK(KDMT) 

GO  TO  (690 i  700).  KUMT 
690  SI  =  13.0690 
CALL  UNCLE 
C 

C  FORM  RADIATION  CONTRIBUTION  TO  ZONE  ENERGY 

C 

700  00  710  I  -IN.  IM 

ER(I)=ER(I)*X2d)-X2d  +  l)+RDTR/PDFU(I>*(0LDE(I.IHNU>-RH0(I)> 
GO  TO  (710.  704).  NVEZ 
704  OLOE(I.IHNU)  =  RHO(I) 

0SX2 ( I )  r  0SX2(I)  ♦  OLDF(I.IHNU) 

OLDF (I. IHNU)  =  X2(I) 

710  CONTINUE 

IF  (NVEZ  . Nt.  2)  GO  TO  990 

0SX2 ( IMP1 )  =  0SX2 ( IMP1 )  +  OLDF ( IMP1 . IHNU) 

OLDF ( IMP1 . IHNU)  =  X2(IMP1) 


DRAD5950 

DRAD5960 

DRAD5970 

ORAD5980 

DRAD5990 

DRAD6000 

DRAD6010 

DRAD6030 

DRAD6040 

DRAD6050 

DRAD6070 

DRAD60R0 

DRAD6090 

DRAD6100 

DRAD6110 


DRAD6130 

DRAD6140 

DRAD6150 

DRAD6160 

DRAD6170 

DRAD6180 

DRAD6190 

DRAD6200 


DRAD6220 


C******************************* ***************************** ********##* 

c 
c 
c 

c**** ***************** **********••*»••***••*•*• ************** *********** 


OPTIONAL  EDIT  OF  X2  ETC. 

. 


DRAD6230 

DRAD6240 

DRAD6250 


990  CNT1=SOLID(18)+1.0 

CNT2=AMIN1 (TPRINT.CNTMAX) 

IF  (CNT1  ,LT,  CNT2)  GO  TO  1020 
F  (SOLID(ie)  .EO.  SCYCLE  .OR.  NVEZ  .EO.  1  * 

1  .OR.  (ZPKleJ/DTR)  .GT.  1.5)  GO  TO  1000 

WRITE  (13)  CNT1 .  (OLDE(I.IHNU).  OLDF ( I . IHNU) .  1=1.152) 

1000  IF  (EDITMF  ,EQ.  0.0)  GO  TO  1020 
TEMP(i)  =  TH  ♦  DTR 

WRITE  (6.3)  CNT1 .  TEMP(l).  HNU.  NVEZ 
WRITE  (6.4) 

H(IMPI)  =  0. 

M2  ( I MP 1 )  =  0. 

GU(IMPl)  =  0. 

HU(IMPl)  =  0. 

RHO(IMPl)  =  0. 

DO  1C10  I  =  IN.  IMP1 

1010  WRITE  (6.5)  I.THETAd  )  .X6(  I)  .H(I)  .H2U)  »GU(  I) .  HU(  I )  »RHO(  I ) »  X2  ( I ) 

3  FORMAT  (9H1CYCLE  =  F7.0.  9H  TIME  =  E13.6.  4X11HHNU(LOWER)=F10.4» 

2  10H  PASS  NO.  11/) 

4  FORMAT  (7X1HI.  9X5HTHETA.  12X2HX6.  13X1HH.  12X2HH2.  12X2HGU. 

2  12X2HHU.  11X3HRH0.  12X2HX2) 

5  FORMAT  (18.  1P8E14.7) 


DRAD6260 

DRAD6270 

DRAD6280 


DRAD6290 

DRAD6300 


C 

C 


ADVANCE  FREfl.  STORE  EMERGENT  FLUX.  TEST  FOR  COMPLETION  OF  GROUPS 


DRAD6390 

DRA06400 
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C 

1020  00  1030  I=IN.IMP1 

SUMRHO ( I )  £  SUMRHO ( I )  ♦  RHO(I) 
SUMX2 ( I ) =SUMX2 ( I)+X2( I) 

1030  CONTINUE 

CALL  OVCHK  (K000FX) 

60  TO  (1050*1040) *  KOOOFX 
1040  IF  (IHNU  .GT.  IOMHNU)  60  TO  1050 


OH  AO  64 10 
DRA06420 
DRA06430 
ORA06440 
ORA06450 
ORAP6460 
DRA06470 


HNUPSHNU 

HNUP4SHNU4  DRAD6490 

IF ( IHNU-NHNU) 360 #1060*1050  DRAD6500 

C*********e*** ***************************************************** *****DRA06510 
C  ♦ORA06520 

C  END  FREQUENCY  LOOP  *DRAD6530 

C  *DRA06540 

C** ************ *********************************************** ******* *** DRAD6550 
1050  SI  £  13.1050  DRAD6560 

CALL  UNCLE  DRAD6570 

C  DRAD6580 

C  ITERATE  ON  TEMPERATURE  IF  NVEZ  EQUALS  ONE  DRAD6590 

c  DRA06600 


1060  ILM0A-12345 

60  TO  (1061*  1065)*  NVEZ 

1061  NVEZ  £  2 
VEZ  £  NVEZ 
NY  =  NVEZ 
IHNU=0 

00  1062  I  =  IN*  IM 

BNTH  £  THETA(I)  ♦  (SMLQ(I)  +  ER(I) 
2  OTR  /  (6(1)  *  CV(I)) 

OLOTH(I)  £  THETA(I) 

THETA ( I)  S  0.5  *  (OLDTH(I)  ♦  BNTH) 

1062  Q37 ( I ) sALOG (THETA ( I ) ) 

IF  (KMAX.EQ.  0)  CALL  KAPPA(IN.IM) 
GO  TO  200 

1065  IF  (CVB  .EQ.  0.0)  GO  TO  1067 

00  1060  I  £  IN*  IM 

1066  THETA ( I )  £  OLDTHC) 

C 

C  SET  UP  FOR  ENCALC 

C 

1067  00  1070  I  =  IN.  IMP1 

Old)  £  0. 

RHO(I)  =  SUMRHO ( I ) 

1070  X2U)  £  SUMX2CI) 

1300  IF  (ZP1 (26)  .EQ.  0.0)  GO  TO  1400 
C 

C  RESTORE  NONEC  QUANTITIES 

C 

IF  (PUSHA  .LT.  0.0)  GO  TO  1350 
CALL  NONEQ( IMP1 *5) 

GO  TO  1400 

1350  CALL  NONEQ( INM1*5) 

1400  RETURN 
END 


DRA06620 

DRA06630 

ORA06640 

DRAO6650 

DRAD6660 

(PBl(I)  ♦  P ( I ) )  *  VD( I ) )  *  DRAD6670 

DRAO6680 

DRAD6690 

DRAD6700 

PRA06710 

DRAD6720 

DRAD6730 

ORAD6740 

ORAD6750 

DRAD6760 

DRAD6770 

DRAD6760 

DRAD6790 

ORAD6800 

DRAD6B10 

DRAD6820 

DRA06830 

DRAD6B40 

DRA06850 

DRAD6870 

DRA06B80 

DRAO6890 

DRA06900 

ORA06910 

DRAD6920 

DRAD6921 
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SUBROUTINE  HAUTN 


ERAD 


.«***•***; 


0 

10 


c 

c* 

c 


c* 

c*. 

c 


COMMON 

1  KMAX 

2  II 

3  IIP1 

4  FREQ 

5  CVA 

6  EMINA 
COMMON 

Ol'MAXl 
GAMA 
ROIA 
S4 
S12 
S20 
ASQ 
OELR 
COMMON 
W 
V 

X3 
SMLA 
EC 

BIGB 
CHIR 
CRTPC 
COMMON 
FRLM 
ZP1 
RL 

HEAD 


1 

2 

3 

4 

5 

6 
7 
S 


1 

2 

3 

4 

5 

6 

7 

8 


1 

2 

3 

4 


S  P 

LMU A ( 37 ) 
BLANK  1 
IG 

IGM1 
CNTMAX 
CVB 
EMINB 
TO 

DTMAX2 
WCRIT 
HOI  AMI 
S5 
S13 
EO 
(152)* 

(  37)* 


RU 

P 

P.I 

t 

i> 

:<4 


ERAD 

20 

U  T  T 

E 

H  C 

0 

M  M  0 

N 

••ERAD 

30 

•  ERAD 

40 

NR 

NSMLR 

9 

IA 

*  IB 

9 

1CA  * 

ICB 

.ERAD 

50 

BLANK2 

BLANKS* 

I  API 

*  IUP1 

9 

ICAP1  * 

ICBP1 

»EHAD 

60 

NRAD 

BLANK4 

9 

I  AMI 

*  IRM1 

9 

ICAM1  * 

ICPM1 

.ERAD 

70 

I  ALPHA 

BLANKS* 

TH 

.  TMAX 

9 

BLANKS* 

UrLPRT 

.ERAD 

BO 

AR 

ASMLR 

9 

PUSHA 

*  PUSHB 

9 

BOILA  * 

FOILB 

»ERAD 

90 

SLUG 

ALPHA 

9 

HVA 

*  HVB 

9 

HCA  * 

HCB 

.ERAD 

100 

CA 

CB 

9 

GA 

*  GB 

9 

GL  * 

GR 

.ERAD 

110 

TE 

DTH2 

9 

DTH2P 

*  DTH1 

9 

DTRMIN* 

DTMAX 

.ERAD 

140 

DTMAX3 

OTR 

9 

SWITCH 

*  CO 

9 

CMIN  * 

DELTA 

.ERAO 

150 

SIGMAQ 

AC 

9 

AC03T4 

.  CNVRT 

9 

SUMRA  * 

SUMRB 

.ERAD 

160 

HOIB 

ROIBPi * 

GMS 

*  SI 

9 

S2  • 

S3 

.ERAO 

170 

S6 

S7 

9 

SB 

*  S9 

9 

SiO  * 

Sll 

.ERAD 

180 

S14 

S15 

9 

Slf> 

*  S17 

9 

SIS  * 

S19 

.ERAD 

190 

FO 

TAU 

9 

ZERO 

*  R  (152).  DELTAR ( 152 ) 

.ERAD 

200 

(152 

) 

*  VD 

(152). 

RDG  (152).  SMLR 

(152) 

.ERAO 

210 

(152 

) 

.  PI 

(152). 

PB  (152).  PB1 

(152) 

ERAD 

220 

(152)* 

(152) 

(152)* 

(152)*  SMLB 
(152)*  EK 
(152)*  CV 
(152)*  CAPAC 
(1527*  GOFR 
TELM 

(  37) i  WLM 
(  37).  ZP2 
(  37).  RHOK 
(  12).  MAXL 


(152 
(152 
(152 
(152 
(152 
(152 
(152 
(152 
(152 
(  37 
(  37 
(  37 
(104 


SV 

El 

0 

X5 

SMLC 
SMLQ 
BC 


(152) 

(152) 

(152) 

(152) 

#152) 

(152) 

(152) 


CAPAR  (152) 
FEW  (152) 
EKLM  (  37) 
QLM  (  37) 
SOLID  (  37) 
ROK  (104) 
MAXLM 


RHO 

EK 

C 

X6 

SMLD 

SMLH 

BR 

CRTC 

CAR 

ELM 


(152) 
(152) 
(152? 
(152) 
(152) 
(152) 
(152) 
(152) 
(152) 
(  37) 


AMASNO(  37) 
ECHCK  (  37) 
THETAK(104) 


A 

X2 

X7 

SMLE 

RIGA 

CHIC 

CRTR 

OKLM 

FCLM 


(152) 
(152) 
(152) 
(152) 
(152) 
(152) 
(152) 
(  37) 
(  37) 


CHRNO  (  37) 


RK 

TEMP 


(104) 
(  16) 


DIMENSION  RUC ( 1 ) *  OSX2(l).  H2(l).  Ql(l>*  GU(1).  SU(1).  HU(1) 
DIMENSION  POFU(l).  SUMRHO(l)*  H(l) *  SUMX2(1)*  OLDTH(l) 
DIMENSION  037(1) .  038(1) 

COMMON  /LINOLY/  HNU.SGNL* IHNU.NHNU.HNUP.nT* IM* IN.DHNU*THICK*NY 
COMMON/TO/Q INTI (300) *QINT2(300) *TITLE(12) *FLUX(30) 

COMMON  /CNTRL/  SCYCLE*  JMULT 

EQUIVALENCE  (SMLA.PDFU) *  (SMLO*SUMRHO)  * 

EQUIVALENCE  (BC.0SX2) * (BIGB.H) * (CRTR.SUMX2) * (CHIC*SU) 
EQUIVALENCE  (SMLH.GU) * (CAR*Q37>  * (CHIR*Q36) * (SMLC.OLDTH) 
EQUIVALENCE  (AC03T4. TRDBG) . (S12.EDITMF)  ‘ 

EQUIVALENCE  (EC  >Ql ) * (X7.H2) » (BIGA .HU  )*(GOFR*RUC) 


ERAD  23G 
ERAO  240 
ERAD  250 
ERAD  260 
ERAD  270 
ERAD  280 
ERAD  290 
ERAO  300 
ERAD  310 
ERAD  320 
ERAD  330 
ERAD  340 
ERAD  350 
ERAD  360 
••ERAD  370 
••ERAD  380 
ERAD  390 
ERAD  400 
ERAD  410 
ERAD  420 
ERAD  430 
ERAD  440 
ERAO  450 
ERAD  460 
ERAD  470 
ERAD  480 
ERAD  490 
ERAD  500 
ERAD  510 
ERAD  520 
'••ERAD  530 
•ERAD  540 


w 

c 

EDITMF 

SAME 

AS 

S12 

•ERAO 

C 

H 

sJaml 

AS 

HIGB 

•ERAD 

c 

H2 

SAME 

AS 

X7 

•ERAO 

c 

olcth 

SAME 

AS 

SMLC 

•ERAO 

c 

POFU 

SAME 

AS 

SMI.A 

•ERAO 

c 

Q1 

SAMF. 

AS 

cC  J 

•ERAO 

c 

RUC 

SAME 

AS 

GOFR  V 

•ERAO 

c 

U37 

SAME 

AS 

CAR 

•ERAD 

c 

Q38 

SAME 

AS 

CHIR 

•ERAD 

c 

SUMX2 

SAME 

AS 

CRTR 

•ERAO 

c 

SU 

SAME 

AS 

CHIC 

•ERAO 

c 

HU 

SAME 

AS 

BIGA 

•ERAD 

c 

TRDBG 

SAME 

AS 

AC03T4 

•ERAD 
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C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

C' 

c 

c 

c 

c< 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 


bU  SAME  AS  SMLH 
SUMRHO  SAME  AS  SMLQ 


NONtQUI LIBRIUM  RADIATION  DIFFUSION  AS  IN  LA-3377 

FOR  DRADTN  AND  ERADTN.  NY  (IN  LINDLEY  COMMON)  IS  TEMPERATURE 
ITERATION  INDEX.  THIS  IS  USED  IN  A  SPECIAL  DIANA  THAT  GOES  WITH 
ORAUTN  AND  ERADTN. 


INITIALIZATION  AND  CALCULATION  FOR  NO  VAPOR  ZONES 


CALL  DVCHK  (K000FX) 

NTIMES=U0ILB 

IM=IBM1 

IN=IA 

IF  (KMAX  .EQ.  0)  DHNU  =  1. 

10  IF  (ZP1(26) .EQ.O. )  GO  TO  30 

SAVE  STUFF  FROM  EIONX  FOtf  NONEQ  AND  RESET  IN  OR  IM 

IF  (PUSHA.LT. 0.0)  GO  TO  20 

IM  s  NR  *  1 

CALL  NONcQ (lh*1.4) 

GO  TO  30 
20  IN  =  NR 

CALL  NONEQ (IN-1. 4) 

30  CONTINUE 
IMPlslM+1 
INMlsiN-1 
INP1  =  IN  ♦  1 
40  IF  (IMP1-IN)  50.S0.b0 

CALCULATE  BLACKBODY  EMISSION  AND  EXIT  IF  NO  VAPOR  ZONES 

50  X2(IMP1)  =  1 . 0275E12  *  A(IMP1)  *  <THETA(IM>**4  -  THETA (IMP1 5**4) 
ER(IM)=-X2(IMP1> 

GO  TO  1310 
60  NVEZ  =  1 
NY  =  NVEZ 

IF(CVB.EQ.O.O)  NVEZ  =  2 
VEZ  =  NVEZ 

FORM  INTERPOLATION  QUANTITIES  FOR  OPACITY  SUBROUTINE 

DO  70  I=IN.IM 

Q37 ( I ) =ALOG ( THETA ( I ) ) 

70  Q38(I)=AL0G(SV(I)) 

OBTAIN  ROSSELAND  ANO  PLANCK  OPACITIES  FOR  ENTIRE  SPECTRUM 
(REQUIRES  DIANE  TAPE  HAVING  MONOFREQUENCY  OPACITIES  FIRST) 

IHNU  =  0 

CALL  KAPPA ( IN. IM) 


MINIMUM  TIME  STEP  CALCULATION 


MSB  S  0.0 


♦ERAD  680 
♦ERAD  690 
♦ERAD  700 
'♦ERAD  710 
ERAO  720 
ERAD  730 
ERAD  740 
ERAD  750 
ERAD  760 
ERAD  770 
ERAD  780 
'♦ERAD  790 
ERAD  800 
ER^O  310 
ERAD  820 
♦ERAD  830 
ERAD  840 
ERAO  850 
ERAD  860 
ERAO  870 
ERAD  880 
ERAO  890 
ERAD  900 
ERAO  910 
ERAO  920 
ERAD  930 
ERAD  940 
ERAD  950 
ERAO  960 
ERAD  970 
ERAO  980 
ERAD  990 
ERA01000 
ERA01010 
ERAD1020 
ERAD1030 
ERAD1040 
ERAD105C 
ERAD1060 
ERA01070 
ERAD1080 
ERAD1090 
ERAD1100 
ERAOIUO 
ERADU20 
ERADU30 
ERADU40 
ERA01150 
ERAD1160 
ERADU70 
ERADU80 
ERA01190 
ERA01200 
ERAD1210 
ERAD1220 
ERA01230 
ERAD1240 
ERAD1250 
ERAD1260 
■ERAD1270 
ERA01280 
ERA01290 
ERA01300 
EHAD1310 
ERAD1320 
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U0  00  1=1 r MAXLM 
80  WSb  =  MSB  +  tLM(I) 

UTRlsl.ElO 
OTR2=1.E10 
90  00  210  I  =  IN* IM 
C 

C  CALL  UNCLE  IF  EITHER  KAPPA  IS  ZERO  OR  NEGATIVE 

IF  ( AHIN1 (CAPAC ( I ) .CAPAR ( I ) ) .GT.O.O)  GO  TO  100 
95  Sl=13.0095 
CALL  UNCLE 
C 

C  SOLID! 10)  NOT  ZERO  GIVES  ALL  ROSSELAND  OPTION 


ERAD1330 
ERAD1340 
ERAD1350 
ERAD1360 
ERA01370 
ERAD1380 
EH ADI 390 
ERAD1400 
ERAD1410 
ERAD1420 
ERA01430 
ERAD1440 
ERAD1450 


100  IF  (SOLIU(IO) .EG. 0.0)  GO  TO  110 
TEMP(l)  s  CAPAR(I) 

TEMP (3)  =  CAPAR! I) 

GO  TO  120 

1 1 0  TEMP ( 1 J  SSQRT ( CAPAR ! I ) *C APAC  < I ) ) 

TEMP (3)  s  CAPAC! I) 

120  IF  iO. 001-THETA! I))  130*210*210 
130  ' sv,n  • 

TEMP (2)  =  1.E10 

IF  (TELM!37) .EQ.O.O.OR.ER!!) .EQ.O.O)  GO  TO  150 
WSbU  =  E(I)  *  Gil ) 

IF  i WSBb-TELM ( 37 ) *WSb )  150*140*140 


ACCURACY  CRITERION  -  DONE  FOR  FULLY  AND  PARTIALLY  IMPLICIT  CASES 


140  TEMP ( 1 )  S  SLUG  *  WSBB  /  ABS(ER(I) )  ! 

150  IF  1KMAX.EQ.0.ANU.HVB.NE.0.0)  GO  TO  160' 

STABILITY  CRITERION  --  BYPASSED  IN  FULLY  | IMPLICIT  CASE 

=  I  )/!4t  1132E12*TEMP(3J*’TNETAd)  **  3) 

TEMP (3)  s  TEMP(2)*3.*H!I)**2 
TEMP! 2)  s  AMIN1 ! TEMP (2) » TEMP 13) ) 

160  TEMPI2)  s  AMINHTENPU).  TEMP! 2) ) 

TEMP ! 2 ) =TEMP < 21 *TELM ( 25 ) 

FIND  MINIMUM  TIME  STEP 

IF  1TEMPC2) )  210*210*170 
170  IF  !TEMP!2)-0TR1)  180*190*190 
180  DTR2ZDTR1 
IMN2SIMN1 
OTRlsTEMP (2) 

IMNlsI 
GO  TO  210 

190  IF  !TEMP(2)-OTR2>  200*210.210 
200  DTR2STEMPI2) 

I MNP: I 

210  CONTINUE 
OTRMINSOTR1 
EOSIMN1 

SET  UP  MINIMUM  TIME  STEPS  BETWEEN  EDITS 


EHAD1460 

ERAD1470 

ERAD14A0 

ERAD1490 

ERAD1500 

ERAD1510 

ERAD1520 

ERA01530 

ERAD1540 

ERAD1550 

ER ADI 560 

ERAD1570 

ER ADI 580 

ERA01590 

ERAD1600 

ERAD1610 

ERAD1620 

ERA01630 

ERA01640 

ERA01650 

ERAD1660 

ERAD1670 


ERA01690 

ERAD1700 

ERA01710 

ER ADI 720 

ERAD1730 

ERAD1740 

ERAD1750 

ERADlrS0 

ERA01770 

ERA01780 

ER ADI 790 

ERAD1B00 

ERAD1810 

ERA01S20 

ERAD1830 

ERAD1840 

ERAD1850 

EH ADI 860 

ERA01670 

ERA01880 


IF  !0TR1-TELM(26) ) 
220  TELM(26) =DTR1 
TELM(27)=IMN1 
TELM(28)=DTR2 


220*230*230 


TELM129)=IMN2 

TELM!30)=SCLIBtl6)+1.0 


ERAD1S90 

ERAD1900 

ERAD1910 

ERA01920 

ERAD1930 

ERAD1940 

ERA01950 
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230 

CONTINUE 

ERAD1960 

ERAD1970 

UETtHMINt  IF  RADIATION  OH  HV0H0  WILL  SUbCYCLE 

ERA01980 

ERAD1990 

IF  IDTRMIN-DTH)  260*280*240 

ERAD2000 

240 

bLANK3=TH+AMINlluTRMIN*GR*DTH2) 

ERAD2010 

IF  (517)  28U * 250 * 28U 

ERAD2020 

250 

59  =  1.0 

EHA02030 

60  TO  280 

ERAD2040 

ERAD2050 

REDUCE  TIME  STEP 

ERAD2060 

ERA02070 

260 

NKAU-2F1 ( 18 ) /DTRMIN+1 .0 

ERAD20A0 

0TKS2P1 ( 18) /FLOAT (NKAD) 

ERAD2090 

IF  (NRAU-NTIMES)  280*280*270 

ERAD2100 

270 

Sl=13.0270 

EHAD2110 

CALL  UNCLE 

ERA02120 

280 

THTAMXa.025 

ERA02130 

»*•*> 

ENAD2150 

CALCULATE  GEOMETRY  FACTORS  AND  F1NO  HIGHEST  TEMPERATURE  ERAD2160 

ERA02170 

DO  330  I=1N*IM 

ERAD2190 

GO  TO  (290*300*310)*  I ALPHA 

ERAD2200 

EHA02210 

SLABS 

ERA02220 

ERAD2230 

290 

PDFU(I)  s  1.  ✓  (C(I*l)  -  C(IJ J 

ERAD2240 

RUCUF1)=5.0E9  /  (ClI+2)  -  C(I)) 

ERAD2250 

GO  TO  320 

ERAD2260 

ERAD2270 

CYLINDERS 

ENAD2280 

ERA02290 

300 

PDFU(I)  a  1.  /  (C(I*1)**2  -  C(IJ**2J 

ERA02300 

RUC(I+l>al.0E10  ♦  Cd+1)  /  (C(I*2J  -  C(D) 

ERA02310 

GO  TO  320 

ERAD2320 

ERAD2330 

SPHERES 

ERAD2340 

ERAD2350 

310 

PDFU(I)  81,/  (C(I*1)**3  -  C ( I ) **3) 

ERAD2360 

RUC( I  +  l)=l.bE10  •  C(I+1)**2  /  (C ( 1+2 )  -  C ( I ) ) 

ERAD2370 

320 

IF  (THETA(I).LE.THTAMX)  GO  TO  330 

ERAD23R0 

THTAMXaTHETA(I) 

ERAD2390 

330 

CONTINUE 

ERAD2400 

IF  (THTAMX  .LT.  THETA(IB)  .AND.  GL  .GT .  0.)  THTAMX  a 

THETA(IB)  ERAD2410 

IF  (THTAMX  .LT.  THETA(IA-l)  .AND.  GA  .GT.  0.)  THTAMX 

a  THETA(IA-1)ERAD2420 

GO  TO  (340*350*360)*  I ALPHA 

ERAD2430 

ERA02440 

boundary  quantities 

ERAD245C 

ERA02460 

340 

tslh  =  1. 

ERAD2470 

tsrh  =  1. 

ERAD2480 

GO  TO  370 

ERAD2490 

350 

TSLH  a  C (IN)  ♦  C ( IN) 

ERA02500 

TSRH  a  C(IMPl)  ♦  C(IMPi) 

ERAD2510 

GO  TO  370 

ERA02520 

360 

TSLH  a  3.  *  C(IN)**2 

ERAD2530 

TSRH  a  3.  *  C ( IMP1 ) **2 

ERAD2540 

370 

ROTH  a  1.  /  UTR 

ERAD2550 

CALL  DVCHK(KUMY) 

ERAD2560 

60  TO  (380*390)*  KOMY 

ERAD2570 

380 

SI  a  13.0380 

ERA02580 

CALL  UNCLE 

ERAD2590 

ERAD2600 
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C  ZtRO  X3.  X4»  Xb.  Xb  (IN  CASfT  MERGE  FREQUENCIES) 

C  AND  LHi  SUMX2.  SUMKHO  (FOR  FREQUENCY  INTEGRATION) 

C 

390  DO  400  I  =  IN»IM 
X3(I)=U. 

X4<1)=0. 

XS(I)=0. 

X6(l)=0. 

ER( I )  =  0. 

SUMX2(1)  =  0. 

SUMKHO(l)  =  0. 

C 

C  SET  UP  FOR  KAPPA  INTERPOLATION 

C 

40U  Ql(l)=THtTA(I)**4 
SUMX2 ( IMP1 )  =  0. 

C 

C 

C***»* A************************************************ ***********' 

C 

C  UEGIN  FREQUENCY  L  0  40  P 

C 

CM***********  ********************  •••••♦••♦••••••••A**-******* 

C 

C  SET  UP  MAX  FREQ  BOUNDARY 

C 

HNUP=1.0E6 
HNUP4=1.0E24 
IF  (KMAX.EQ.O)  GO  TO  530 
410  IHNU  =  IHNU  *1 
CALL  KAPPA! IN# 1M) 

HNU4=HNU**4 

l-HNUP  S  DHNU  .. 

HNU  =  HNUP  -  HNU  .  ' 

C  i 

C  MERGE  GROUPS  MITH  HNU  MORE  THAN  CB  TIMES  LARGEST  THETA 

C  I 

IF  (Cb.GT.0.0)  00  TO  420 
415  SI  =  13.0415 
CALL  UNCLE 

420  IF  (THTAMX-HNU/CB)  450#430»430 
430  IF  (IHNU-l)  440 #560 #470 
440  SI  =  13.0440 
CALL  UNCLE 
C 

C  REJECT  TAPE  IF  MORE  THAN  HALF  OF  GROUPS  MERGE 

C 

450  IF  ( 1HNU+ 1HNU-NHNU )  470#460#460 
460  IF  (AMOO(CB'l.).EQ.U.S)  GO  TO  470 
SU13.0460 
CALL  UNCLE 
470  00  460  1=1Ni1M 
bET  A=HNU/ THE  T A ( I ) 

BETAP=HNUP/THETA(I) 

DFU=PLNKUT (UETA  #bETAP) 

IF  (DFB.EQ.O.)  GO  TO  480 
TEMPI  1 )=UFB*Q1 ( 1) 

EMBISEXP(-BETA) 

EMb2=EXP(-BETAP) 

TEMP ( 2 ) =OFB*0 . 0  3B4974/Q 1 ( 1 ) * ( HNU4/ ( 1 . 0-EMB 1 ) 

1 *EMbl-HNUP4/ ( 1 • 0-EMB2 ) *EMB2) 

C 

C  FORX  NUMERATORS  ANO  DENOMINATORS  OF  MERGED  KAPPAS 

C 

Xb ( I ) =Xb l I ) +TEMP ( 1 ) 


ERAD2610 
ERAD2620 
EHAD2630 
ERAD2640 
ERAD2650 
ERAD2660 
ERAD2670 
ERAD26H0 
ERAD2690 
ERAD2700 
ERAD2710 
EKAD2720 
EKAD2730 
ERAD2740 
ERAD2750 
ERAD2760 
ERAD2770 
ERAD2780 
♦EKA02790 
♦ERAD2800 
♦ERAD2810 
♦EHAD2820 
♦ERA02830 
ERA02840 
ERAD2850 
EHAD2860 
EHAD2670 
ERAD2880 
ERAD2890 
ERAD2900 
ERAD2910 
ERAD2920 
ERAD2930 
ERAD2940 
ERAD2950 
ERAD2960 
ERA02970 
ERAD2980 
ERAD2990 
ERAD3000 
ERAD3010 
ERAD3020 
ERAD3030 
ERAD3040 
ERAD3050 
ERAD3060 
ERAD3070 
ERA03080 
ERAD3090 
ERAD3100 
ERAD3110 
ERAD3120 
ERAD31; 0 
ERAD3140 
ERAD3150 
EKAD3160 
EKAD3170 
EKAD3180 
ERAD3190 
ERAD3200 
ERAD3210 
ERAD3220 
ERAD3230 
ERAD3240 
EHAD3250 


'1 


j 
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X4!I)=X4!I)*TLMP(2) 

Xbl I ) =Xb( I )  +IAPAC ( I ) *TEMP( 1) 
X3!I)=X3<I)4TtMP(2)/CAPAH<I) 

480  CONTINUL 
HNUPsHNU 
HNUP4=HNU4 

IF  ( THTAMX-HNU/Cu)  410*490*490 

FORM  MLRGLU  KAPPAS 

490  00  52U  I=IN»IM 

IF  (Xblll)  500*520*1*10 
bOO  51=13.0500 
CALL  UNCLE 

blO  CAPAR(I)=X4(I)/X3(I) 

CAPAC ( I )=X5( I J/Xb(  I J 
b20  CONTINUL 
HNUP=1.0E6 
HNUP4=1.0E24 
UHNU  =  HNUP  -  HNU 
CO  TO  580 

MONOFHLQULNCY  CALCULATION 

530  NHNU-1 

I HNU  =  1 
00  b40  I=IN*IM 
540  X6(I)=Q1(I) 

HNU  =  .001 
GO  TO  b80 


FRLQUENCY  GROUP  CALCULATION  OF  SOURCE! 


550  I HNU  s  I HNU  +1 
CALL  KAPPA ( IN* IM) 

OHNUrHNUP-HNU 
HNU4=HNU**4 
b60  00  570  I=IN*IM 

'  THETAm'  HNUP  /  THETA!  I) ) 

570  X6(  I)=DFl)*Q1(  I) 

StT  BOUNDARY  CONDITION  FOR  LEFT  HAND  SIDE 

580  IF  (INM1)  590*630*600 
590  S1S13.0590 
CALL  UNCLE 

600  IF  (KMAX.NE.O)  GO  TO  610 
DFB  =  1. 

60  TO  620 

610  AJL (THETA<|NM1)  .LE.  0.0)  THETA! INM1)  =  1.0E-5 
s  PLNKUT  !HNU/THETA ! INM1 ) .HNUP/THETA ( INM1 ) ) 

620  bBSL  =  OFB  *  THETA! INM1) **4 
GO  TO  6bU 

NO  BOUNDARY  CONDITION  FOR  GA  .GT.  0.0 

630  IF  (GA.GT.0.0)  GO  TO  640 
IF  (GA  «LO.  0.0)  OBSL  =  0. 

GO  TO  6b0 
640  SI  s  13.0640 
CALL  UNCLE 

SET  BOUNDARY  CONDITION  FOR  RIGHT  HAND  SIDfc 
650  IF  (GL  .LQ.  0.0)  X6< IMP1 ) =0. 0 


FHA03260 

ERAD3270 

ERAD32A0 

ERAD3290 

ERAD3300 

ERAD3310 

ERAD3320 

ERA03330 

ERAD3340 

ERAD3350 

ERAD3360 

ERAD337D 

EHAD33M0 

ERA03390 

ERAD3400 

ERAD3410 

ENA03420 

ERAD3430 

ERAD3440 

ERAD3450 

ERAD3460 

EHAD3470 

ERAD3480 

EHAD3490 

ERAD3500 

ERAD3510 

ERAD3520 

EHAD3530 

EHAD3540 

ERAD3550 

EHAD3560 

ERAD3570 

EHAD3580 

ERAD3590 

EHAD3600 

ERAD3610 

ERAD3620 

ERAD3630 

EKAD3640 

ERAD3650 

ERAD3660 

ERAD3670 

ERAD36A0 

ERAD3690 

ERAD3700 

ERAD3710 

ERAD3720 

ERAD3730 

ERAD3740 

ERAD3750 

ERAD3760 

ERAD3770 

ERAD3780 

ERAD3790 

ERAD3800 

ERAD3810 

ERAD3R20 

ERAD3830 

ERAD3A40 

ERAD3R50 

ERAD3A60 

ERAD3870 

ERAD3R80 

ERAD3890 

ERAD3900 
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IF  (GL.Nt.O.b)  GO  TO  b80 
IF  (KMAX.NE.O)  GO  TO  060 
UFO  =  1. 

GO  TO  670 

660  UFO  =  PLNKUT (HNU  /  THLTA( IMP1 ) *  HNUP  /  THETA l IMP1 ) ) 
670  XbUMPl)  s  UFIi  ♦  THLTA( IMP1 ) **4 


C 

c  SPLCIAL  RIGHT  BOUNDARY  SOURCE  (GL  A  POSITIVE 

C  INTEGER)  NOW  INCLUOED 

C 

680  IF(GL.GT.O.b)  Xb(IMPl)  =  FLUX  IIHNU) 

UUK=~Xb t IHP1 ) 


C 

C 

C 


C 

C 

c 

c 


c 

c 

c 

c 

c 

c 


FORM  ROSStLANO  ANO  PLANCK  OPTICAL  DEPTHS 

H3M  =  CAPAR (IN)  /  SVUN)  *  OELTAkdN) 

UO  720  I=IN*1M 

IF  ( AMIN1 (CAP AC ( I ) * CAPAR (I) ) . GT • 0 . 0 )  GO  TO  690 
68b  Sl=13.0bd5 
CALL  UNCLE 


FOR  NONEQUILIURIUM  DIFFUSION*  H  AND  H2 
ARE  MU  AND  (l./(4.*LAMUDA) )  RESPECTIVELY. 


690  HI  I )  =  CAPAC(I)  /  SV'.I)  •  1.5EI0 

IF(SOLIUUO)  .NE.O.O)  HU)  =  HU)  ♦CAPAR  ( I )  /CAPAC  ( I ) 

SU(I)  =  2.74E2  *  H( I)  *  X6( 1 ) 

IF  (I.EQ.IM)  GO  TO  720 

WARNING  -  ASYNCHRONOUS  IN  SV  AND  DEL^AR  LEAD  TO 
ERRONEOUS  FLUCTUATIONS  IN  H3.  THIS  CAN  BE  FIXED 
BY  SUBSTITUTING  G  IN  PLANES*  BUT  SPHERES  WILL 
STILL  HAVE  THIS  TROUBLE.  || 

700  H3P  =  CAPAR ( 1  +  1)  /  SVUU)  *  OELTARl  I ♦  X ) 


C  FOR  SHARP  CHANGES  IN  OPTICAL  DEPTH*  USE  THINNER  20NE  TO  DEFINE  H2 

CAVEAT.  TROUBLE  IN  SCATTERING  PROBLEMS  -  CODE  CHANGES  SOON 
C 

IF  ( ABS ( H3M-H3P ) / ( H3M*H3P ) . LE • AC )  GO  TO  710 
H2(  1*1  )  =  .2‘i*AMlNl  (H3M/DELTAR(  I )  *H3P/DELTAR(  1*1) ) 

GO  TO  720 

710  H2 ( I 4 1 )  =  (H3M  ♦  H3P)  *  0.25/  (DELTAR(I)  ♦  DELTARl 1*1 ) ) 

720  H3M  S  H3P 


C 

C 

C 

C 


C> 

c 

c 

c 

c 

c 

c 

c 


EXTRAPOLATION  COEFFICIENTS  TO  FORM  RADIATION 
ENERGIES  AT  BOUNDARIES 


BETA!  =  1.0  /  (2.0  -  EXP(-DELTARUN) 
2  S.UE-11  /  SV(IN)))) 
bETA2  =  i.O  /  (2.0  -  EXP(-DELTARUM) 
2  b.OE-ll  /  SV(IM)))) 


*  SGRT(CAPARUN)  •  HUN)  * 

*  SQRT(CAPARUM)  *  HUM)  • 


nonequilibrium  diffusion  treatment 

FORM  COEFFICIENTS  OF  IMPLICIT  EQUATIONS 


CALL  UVCHK(KUMY) 

GO  TO  (73C./40)*  KOMY 
730  SI  =  13.0730 
CALL  UNCLE 


ERAD3910 
EHAD3920 
ERAD3930 
EHAD3940 
ERAD39S0 
ERA03960 
ERAD3970 
ERAD39H0 
ERAD3990 
ERAD4000 
EHAD4010 
ERAD4020 
ERAD4030 
ERAD4040 
ERAD40S0 
ERA04060 
ERAD4070 
ERAD40H0 
ERADU090 
ERAD4I00 
EHAD4110 
ERAD4I20 
ERAD4130 
ERAD4I40 
ERAD4150 
ERAD4I60 
ERAD4170 
ERAD4180 
ERAD4190 
ERAD4200 
ERAD4210 
ERAD4220 
ERAD4230 
ERAD4240 
ERAD4250 
ERAD4260 
ERAD4270 
ERAD42B0 
ERAD4290 
ERAD4300 
ERAD4310 
ERAD4320 
’  ERAD4330 
ERAD4340 
ERAD4350 
ERAD4360 
ERAD4370 
ERAD4380 
ERAD4390 
ERAD4400 
ERAD4410 
ERAD4420 
ERAD4430 
•ERAD4440 
ERAD4450 
ERA04460 
ERAD4470 
ERAD4480 
ERAD4490 
♦ERAD4500 
FRAD4510 
ERA04520 
ERAD4530 
ERAD4540 
ERAD4550 
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740  IF  UNP1-IM)  810*810*750 

c 

c  SPECIAL  CASE  -  SINGLE  VAPOR  ZONE 

C 

750  CONTINUE . 

UU  =  2«*H(  IN)  ♦1.5E10*(TSRH*BETA2  *TSLH*BETA1 > *POFU(lN> 
UU=2<055E12*PDFU( IN) * <BBSL*T SLH*BETA 1-RUR*TSHH*UETA2 ) 

IF  (KMAX.EQ<0*ANU*HVd*NE.0.0)  GO  TO  7->(j 
C 

c  PARTIALLY  IMPLICIT  -  MULTI FREQUENCY  CASE 

C 

760  CONTINUE 

HHO(IN)=(SU(IN) +UU) /UU 
GO  TO  lOoO 
C 

c  fully  implicit  terms 

c 

770  GO  TO  (780*790) *  NVEZ 
C 

C  NO  ITERATION 

C 

780  T4=UX(lN) 

GO  TO  800 

790  IF  (CVU.EQ.0.0)  GO  TO  780 
C 

C  ITERATION 

C 


T4=0L0TH(IN)**4 

800  TEMPI 1)=5.48E2*THETA( IN) **3 
TEMP(2)=G(IN)*RDTR*CV(IN) 

0EN0M=TEMP(2)/H( In)+TEMP(1 ) /POFU ( IN) 
BU=BU-2 *  *H (IN) /PDFU( IN ) *TEMP ( 1 ) /OENOM 
SU(IN)  =  (SMLQ(IN)  -  (PB1  (IN)  ♦  PUN))  * 
2  DENOM)-  (TEMP(2) /OENOM)  •  2.74E2  •  T4 
GO  TO  760 
C 

C  LEFT-HAND  UOUNOARY  CONOITION 

C 

8X0  RUl=RUC(IN+l)/H2(IN+l) 

CU  S  -PDFU(IN)  *  RU1 
BU  s  HUN)  ♦  H(IN) 

OU  s  0, 

IF  ( KMAX<EQ<0< ANU<HVB<NE< 0*0)  GO  TO  820 
UU  S  OU  -  SU( IN) 

GO  TO  860 
C 

C  FULLY  IMPLICIT  TERMS 

C 


VDUN)I>  * ( TEMP (X ) 


/ 


820  GO  TO  (640*840) •  NVEZ 
C 

C  NO  ITERATION 

C 

880  T4  =  OXUN) 

GO  TO  850 

840  IF  (CVB.EQ<0<0)  GO  TO  830 
C 

C  ITERATION 

C 

T4  S  OLOTHUNi  **4 

850  TEMP(l)  s  5.48E2  ♦  THETA  (IN)  **3 
TEMP(2)  s  GUN)  •  ROTH  •  CVUN) 

UENOM  S  TEMP (2)  /  HUN)  ♦  TEMP(X)  /  POFUUN) 

BU  =  BU  -2<*H(IN)/PUFU(IN)  •  TEMPI!)  /  OENOM 
UU  5  DU  -  (SMLQUN)  -  (PBl(IN)  ♦ 

2  PUN))  *  VUUN) )  •(  TEMPI  1)  /  DENOM)-  (TEMP(2)/UENOM)«2*74E2*T4 


ERA04560 

ERA04570 

ERAD4580 

ERA04590 

ERA04600 

ERA04610 

ERA04620 

ERA04630 

ERA04640 

ERA04650 

ERA04660 

ERA04670 

ERA04680 

ERA04690 

ERA04700 

ERAO47X0 

ERA04720 

ERA04730 

ERAD4740 

ERA04750 

ERA04760 

ERAL4770 

ERAD4780 

ERA04790 

ENAD4800 

ERAO48X0 

ERA04820 

ERAD4830 

ERA04840 

ERAD4850 

ERAD4860 

ERAD4870 


ERA04900 

ERAD4910 

ERA04920 

ERAD4930 

ERAO4940 

ERAD4950 

ERAD4970 

EHAD4980 

ERA04990 

ERAD5000 

ERAD50X0 

ERA05020 

ERA05030 

ERA05040 

EHAD5050 

ERA05060 

EKA05070 

ERA05080 

ERAD5090 

ERAD5X00 

ERA05XX0 

ERAD5X20 

ERAD5X30 

ERA05X40 

ERAD5X50 

ERA05X60 

ERA05X70 

EHAD5X80 


4 


68 


AFWL-TR-66- 108,  Vol  I 


860  IF  ( INMl )  59U  * tt7U * 8aU 
670  IF  (GA.LT.0.0)  GO  To  H90 
680  TS1  s  POFU(IN)  *  TSLH  *  1.5E10  *  BETA1 
BU  =  BU  ♦  Til 

DU  s  DU  -  Til  *  137.0  *  HUSL 
690  GU(IN)=UU/(CU-BU) 

HU( IN)=-OU/(BU-CU) 

IF  UNP1-IM)  910 * 960*900 
900  Si  s  13.0900 
CALL  UNCLE 
C 

c  GENERAL  CASE  —  FORWARD  PASS 

910  IMM1  =  1M  -  1 

UO  970  UINP1.IMM1 
HU2=RUC(I  +  1)/H2(U1) 

AU  =  -POFUU)  *  KU1 
CU  s  -PUFU(I)  *  KU2 
BU  =  HU)  ♦  HII) 


EHADS210 

EHADS220 

EHADS230 

FHAD5240 

EHADS2S0 


EHAD52A0 

EHAD5290 

EHAD5300 

EHADS310 

EHADS320 

ERAD5330 

ERAD5340 

FRAD5350 

EHADS360 

ERAD5370 

ERADS3S0 


DU  =  0. 

IF  (KMAX.EG.O.AND.HVU.NE.O.O)  GO  TO  920 
DU  =  DU  -  SU(l) 

GO  TO  9b0 

fully  implicit  terms 

920  GO  TO  (930*940).  NVEZ 
NO  ITERATION 

930  T4  s  OKI) 

GO  TO  9S0 

940  IF  (CVU.EO.O.O)  GO  TO  930 
ITERATION 
74  s  OLOTHd  )**4 

950  TEMP(l)  s  5.46L2  •  THETA(I)**3 
TEMP12)  S  G(I  )  •  ROTR  •  CVII  ) 

OENOM  S  TEMPI2)  /  HU  )  ♦  TEMP(l)  /  PDFU(I) 

BU  S  BU  -2.«HU)/  PDFUU  )  •  TEMP(l)  ✓  OENOM 
DU  S  DU  -  (  SMLOU)  -  (PB1(I)  ♦ 

2  P(D)  •  VOID)  *(TEMP(1)  /  DENOM)-  (TEMP (2) /OENOM) 

960  DENOM  s  BU  -  CU  ♦  AU  •  GU(I-l) 

GUCI)  s  (-BU  -  AU*6U(I-1,')  /  DENOM 


EHAD5400 

EHAD5410 

ERAD5420 

ERAD5430 

ERAD5440 

EHAD5450 

EKA05460 

ERAD5470 

EHAD5480 

ERAD5490 

EKAD5500 

ERAD5510 

EKA05520 

ERAD5530 

EHADS540 

EHA05550 

ERAD5S60 

EHAD5570 

ERAD5580 

EHAD5590 

ERAD5600 

ERAD5610 

*  2.74E2  •  T4«*«***** 


HU(I)  =  -(OU  ♦  AU  •  HU(I-l) )  /  DENOM 
RUI  =  RU2 
970  CONTINUE 
C 

C  RIGHT-HAND  BOUNDARY  CONDITION 

960  AU  =  -PDFUUM)  •  RUI 
BU=H(IM)+H(IM) 

OU  =  0. 

IF  (KMAX.EQ.O.AND.HVB.NE.0.0)  GO  TO  990 
OU  s  OU  -  SUUM) 

GO  TO  1030 
C 

C  FULLY  IMPLICIT  TERMS 

990  GO  TO  (1000*1010).  NVEZ 
C 

C  NO  ITERATION 

C 

1000  T4  =  Ul(IM) 


ERAD5660 

ERAD5670 

ERAD5680 

ERAD5690 

ERAD5700 

ERAD5710 

ERAD5720 

ERAD5730 

ERAD5740 

ERAD5750 

ERAD5760 

ERAD5770 

EP.AD5780 

ERAD5790 

ERAD5600 

ERAD5810 

ERAD5820 

ERAD5830 

EHADS640 

ERAD5850 
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00  TO  1020 

1010  IF  (CVli.EG.U.U)  bO  TO  1000 

c 

C  ITERATION 

C 

T4  £  0LUTH(IM)**4  > 

1020  TEMPI 1)  =  5.4002  *  THETA(IM)**3 
TEMPI 2)  £  6(IM>  «  RUTH  *  CV(IM) 

UtNOM  £  TEMP<2>  /  HUM)  ♦  TtMP(l)  /  PDFU(IM) 
bu  £  BU  -2.*H(IM»/PUFUUM).  •  TEMP(l)  /  DENOM 
L'U  =  DU  -  (5MLO(IMl  -  (PUl(IM)  ♦ 

2  P(IM>)  *  VUUMJ)  *(TEMP(1)  /  DENOMl-  <T£MP<2)/f>fN0M)*2.74E2*T4 

1030  IF  (GL.LT.O.)  GO  TO  1040 

T51  "  PDFU(IM)  *  TSKH  *  l.bLIO  «  HETA2 
BU  £  BU  ♦  T51 

DU  =  DU  ♦  Tbl  *  137.0  *  BBR 
1040  GU(lM)  £  -1. 

HU ( I M )  £  -(DU+AU*HUUM-1> ) / ( HU+ AU*GU (IM-1 ) ) 


EKAD56bO 

EHAD5670 

ERA05880 

ERAD5890 

ERAD5900 

EHAD5910 

ERAO5920 

EHAD5930 

EHAD5940 

FRAD5950 

ERAD59H0 

ERA05990 

ERA06000 

EKA06010 


C* 

C 

C 

C 


•ERAD6040 

ERAD6050 

ERAD6060 

ERA06070 


FORM  RADIATION  ENERGY  *  FLUX  ANO  RADI  AT ION* SOURCE  ER. 


00  1050  1£IN.IM 

ERAD6090 

1BK  £  IN  ♦  1M  -  1 

RHOdBK)  £  (GUdBK)  ♦  1. ) *RHO( IUK+1)  ♦  HU(IBK) 

ERAD6100 

IF  (RHO(IBK).GE.O.O)  GO  TO  1050 

EHA06120 

1045 

SI  £  13.1045 

EHAD6130 

CALL  UNCLE 

ERAD6140 

1050 

CONTINUE 

ERAD6150 

C 

EHAD6160 

C 

CHECK  GW  BOUNDARY  X2«S  BYPASSED  C0R 

ERAD6170 

C 

ERAD6160 

1060 

IF  ( INM1 )  590*1070.1090 

EHAD6190 

1070 

IF  (GA)  1060*1090*1090 

ERAD6200 

ioao 

X2f IN)  -  0.0 

ERAD6210 

GO  TO  1100 

ERAD6220 

1090 

X2(IN>  £  (2.055E12«BBSL  -1.5E10*RH0< IN) ) »TSLH*BETA1 

ERAD6230 

1100 

IF  (GL>  1110*1120*1120 

ERAD6240 

1110 

X2(IMP1)  £  0.0 

ERA06250 

GO  TO  1130 

ERAD6260 

1120 

X2UMP1)  =  <2.055E12*BBR  ♦1.5E10*RMO( IM> ) •TSRH*BETA2 

EHAD6270 

IF  (IM»1NP1>  1?60* 1130* 1130 

ERAD62B0 

C 

ERAD6290 

C 

form  fluxes 

EHAD6300 

C 

ERAD6310 

1130 

DO  1140  I=INP1* IM 

ERA06320 

1140 

X2( 1)  £  RUC(I)*(HU(I-1)+6U(I-1)*HH0(I))/H2(I) 

CALL  OVCHK(KOMY) 

ERAD6340 

GO  TO  (1150*1160)*  KDMY 

EHAD63S0 

1150 

SI  £  13.1150 

ERAO6360 

CALL  UNCLE 

ERAD6370 

C 

EHAD63A0 

C 

FORM  RAOIATION  CONTRIBUTION  TO  ZONE  ENFRGY 

ERAD6390 

C 

EHAD6400 

1160 

DO  1170  I£IN*IM 

ERAD6410 

ER(I)  £  ERU)  ♦  X2(  I)  -  X2 <  I ♦  1  > 

ERAD6420 

1170 

CONTINUE 

EHAD6430 

4ERAD6440 

c 

ERAO6450 

c 

OPTIONAL  EDIT  OF  X2  ETC. 

ERA06460 

c 

ERA06470 

1100 

CNTl£SOLIO<lB>d.O 

ERAD6490 

CNT2£AMlNl( TPRINT  *CNTMAX) 

ERA06500 
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IF  (CNT1.LT.CNT2)  GO  TO  1200 

1190  IF  (EDITMF.EU.O.U)  GO  TO  1200  EHAnbj|0 

TEMP(l)  s  TH  ♦  DTR  £K*ue>:o« 

WHITE  (6.3)  CNT1#  TtMPd).  HNU.  NVE2 
WRITE  (6.4) 

H(IMPl)  =  0. 

H2(IMP1)  =  0. 
bU(IMPl)  =  0. 

HU(IMPl)  =  0. 

RHOIIMPI)  -  0. 

119b  WHITE  (6*5)  I  * THETAd ) * X6( I ) *H( I) *M2( I ) *GU(I > •HU(I ) *RHO( I ) »X2( I ) 

5  FORMAT  **(9H1CVCLE  =  F7.0,  9H  TIME  =  E13.6.  4X11HHNU(LOWER)=F10.4. 

42F0RMAT*SdXlHI*  9X5MTHETA.  12X2HX6*  13X1HH*  12X2HH2*  12X2HGU* 

2  12X2HHU.  UX3HRH0.  12X2HX2) 

5  FORMAT  dfl*  1P8E14.7)  EHAD6620 

C  ADVANCE  FREU.  STORE  EMERGENT  FLUX.  TEST  FOR  COMPLETION  OF  GROUPS  EHAD6630 


ERAD6640 

"l200  DO  1210  I=IN.IMP1  FHxnbbbO 

SUMHHO ( I )  =  SUMRHOd)  ♦  HHO(I)  EHADbbbO 

SUMX2 ( I ) =SUMX2 (I ) ♦ X2 (I )  FRXnbbfiO 

coNTij**,. . .  I5IS25S 

CALL  DVCHK  (K000FX)  niinfi7QC 

GO  TO  (1230*1220)  •  K000FX  r«In6710 

—  sssz*  . 

. . iLii^^*i*w*S*i**2iifi2**w.******* . j . ***********!ISlSSsS 

C  E  N  D  F  R  E  0  U  E  N  C  T  L  0  0  p|  ISSStTO 


1230  SI  =  13.1230 
CALL  UNCLE 

C  ITERATE  ON  TEMPERATURE  IF  NVEZ  EQUALS  6nE 

C 

1240  GO  TO  (1250*1270).  NVE2 

1250  NVEZ  S  2 

VEZ  r.  NVEZ 
NY  S  NVEZ 
IHNU=0 

BNTH2=°TMETA(n  ♦  (SMLQ(I)  ♦  ER(D  -  (PBl(I)  ♦  PH))  *  VD(I))  * 
2  OTR  /  (ttd)  *  CV(D) 

OLOTH(I)  =  THETAd) 

THETAd)  =  0.5  *  (OLUTM(I)  ♦  BNTH) 

1260  Q37d)SALOG (THETA(I)) 

IF  (UMAX, EG.  (rt  CALL  KAPPAdN.  IM) 

GO  TO  390 

1270  IF  (CVB.EO.O.O)  GO  TO  1290 
DO  1260  I=IN.IM 

1260  THETAd)  =  OLOTHd) 

C  SET  UP  FOR  ENCALC 

C 

1290  00  1300  I=IN.IMP1 
Old)  =  0* 

KHO(l)  =  SUMRHOd) 

1300  X2U)  =  SUMX2(D  . 

1310  IF  (ZP1(26) .LQ.0.0)  GO  TO  1330 

C  RESTORE  NONEG  QUANTITIES 

*  IF  (PUSHA.LT. 0.0)  GO  TO  1320 

CALL  NONLQ( 1MP1.5) 

GO  TO  1330 

1320  CALL  NONtQdNMl.S) 

1330  HETUHN 
LNU 


EHAD6790 

ERAD6600 

ERAD6610 

ERAD6820 

ERAD6630 

ERAD6840 

ENAD6A50 

ERAD6660 

ERAD6870 

ERAD6680 

ERAD6890 

ERAD6900 

ERAD6910 

ERAD6920 

EKAD6930 

ERAD6940 

ERAD6950 

ERAD6960 

ERAD6970 

ERAD6980 

ERAD6990 

ERAD7000 

EKAD7010 

ERAD7020 

EKAD7030 

ERAD7040 

ERAD7050 

ERAD7060 

EHAD7070 

ERAD7060 

EKAD7090 

f RAD7100 

EHAD7110 

FKAD7120 

EHAD7130 

EHAD7140 

EHAD7150 

EHAD71I.0 
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SECTION  II 

SCATTERING  METHODS  FOR  TAMALE 


2.  1.  INTRODUCTION 

Tht  TAMALE  code  (Ref.  1)  is  a  one- dimensional,  multifrequency, 
thermal- radiation,  transport  code  that  allows  foi  the  finite  transit  time  of 
photons  through  the  system.  (This  "retardation"  version  of  the  code  is  cur¬ 
rently  under  development.  )  This  report  describes  an  approach  for  extending 
capability  of  the  code  to  include  Thomson  scattering,  i.  e.  ,  the  scattering 
of  low-energy  photons  by  free  electrons. 

2.  2.  ANALYSIS  OF  THE  TRANSPORT  EQUATION  WITH  COMPTON 
SCATTERING 


The  calculation  of  the  contribution  to  radiant  energy  transfer  due  to 
the  scattering  of  photons  by  free  electrons  is  based  on  the  numerical  solu¬ 
tion  of  the  relevant  radiation  transport  equation  along  a  selection  of  samp¬ 
ling  rays  through  the  sphere.  A  discussion  of  the  analysis  and  logic  of  the 
parent  code,  SPUTTER,  is  presented  in  Ref.  2. 

The  radiation  transport  equation  for  the  intensity  I(v,  £2,  r,  t)  with 
units  of  energy  per  unit  of  frequency,  solid  angle,  time,  and  area  is  given 
by  (Ref.  3) 

i  a  ~hvi,e  r 

K^.Q.r.tJ  +  Qj*  VK^.Oj.r.tJs^l-e  )[B^( 


(0) 


2 

-  «  V  V]  -  Ne  I(  V  °1>J  dn2  3T  [  1  +  2-^TIU2-  n2>] 


v ,  dv. 


Ne  0 +  —r«v  °1»]  /dn3^  ^  s-s-  b3> 
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The  first  term  on  the  right  side  represents  the  quantity  of  radiant  energy 

absorbed  and  emitted  at  frequency  v  in  direction  ft  .  The  second  term 

represents  loss  of  energy  by  scattering  out  of  the  beam  ft^  v  ,  and  the 

third  term  the  gain  by  scattering  into  the  beam  ft  ,  v The  coefficient 

N  is  the  number  of  free  electrons  per  unit  volume,  and  u  is  the  absorn- 
e  a 

tion  coefficient  at  r  for  frequency  v The  assumptions  necessary  to  de¬ 
rive  this  equation  are  as  follows: 

1.  Polarization  of  photons  is  neglected. 

2.  The  average  kinetic  energy  of  electrons  is  so  small  that  Doppler 
effects  may  be  ignored. 

3.  Local  thermodynamic  equilibrium  (LTE)  exists. 

4.  The  electron  states  are  nondegenerate. 

Before  arriving  at  an  analytical  expression  for  the  intensity  that  is 
amenable  to  computer  solution,  several  more  assumptions  must  be  made. 

The  event  of  a  photon  being  scattered  from  an  electron  at  rest  causes 
the  photon  to  change  frequency.  From  quantum  mechanics  one  has  the 
Compton  formula  for  the  new  frequency: 

v. 

v  =  - — - - 

f  1  +  y.(l-M) 

where  v^,  v  are  the  incident  and  scattered  photon  frequencies,  respec¬ 
tively, 

hv. 

l 

*i= - 2 

m  c 
o 

where  mQ  is  the  mass  of  the  electron  and  c  is  the  speed  of  light,  and 

M  =  ft,  •  ft 
f  i 

A  major  difficulty  in  solving  the  transport  equation  is  that  the  solid- 
angle  integrations  appearing  in  the  scattering  terms  cannot  be  performed 
even  if  the  differential  cross  sections  for  scattering,  dcr/dft,  are  assumed 
to  be  simple  functions.  The  reason  for  this  is  that  the  intensity  I  depends 
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upon  ft  both  directly  and  through  the  frequency  v,  which  oy  the  above 
Compton  formula  is  also  a  function  of  through  the  scattering  cosine,  p. 
To  avoid  this  difficulty,  the  following  assumptions  are  made: 

1  •  y  <  0. 2 

2.  I( ^ 2*  **)  «  Uv  j,  O)  +  (— )  j  (y2  -  y  j). 

The  first  assumption  requires  that  the  photon  energies  under  consid¬ 
eration  be  small  relative  to  the  re3t  mass  of  an  electron  (i.  e. ,  hv  <  100 
kev).  The  second  assumption  requires  that  the  intensity  be  a  smooth  func¬ 
tion  of  v .  This  approximation  is  equivalent  to  the  "age"  approximation  of 
neutron  transport  theory.  With  these  approximations  the  resulting  trans¬ 
port  equation  for  Compton  scattering  in  plane  or  spherically  symmetric 
systems  through  first  order  in  y  is  given  by 


*  [3  '  M1Z+  #*i  M3(3  ^i2  -  S)  +  (3nxZ  -  l)p32  +Pj(3  -  5p12)p33 
+  0(y2) 

where  p  =  (8/3)7rr  2N  and  p1  =  p  (1  -  e*V  ^  ),  Terms  of  order  y2 
s  o  e  a  a  1 

are  derived  in  Ref.  3.  The  above  equation  can  b'j  f  arther  simplified  by 

2  3 

assuming  that  stimulated  scattering  is  negligible,  i.  t. ,  c  I/hu  x  1. 

The  present  development  of  scattering  in  TAMALE  takes  into  account 
only  the  terms  of  order  zero  in  y,  which  are  dominant  at  low  energy,  and 
correspond  to  restriction  of  the  Compton  effect  to  the  limiting  case  of 
Thomson  scattering.  With  this  approximation,  the  transport  equation  for 
spherical  geometry  becomes 
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f-fb  -  %  -  -vB  -  *>  -  m«i+  A  [p  -  *2>  /*•>*• 

+  (3p2  -  1)  f  I(p 
-1 


Under  the  transformation 


x  =  rp  and  y  =  r/l  - 

the  above  equation  reduces  to  the  standard  form: 

iff  +  E  =  "'a'8  -  «  -V  +  B  "a  [>3  -  "2»  /  V>V 

+  <3#*2  -  1)  f  I(#*,)#*,2d#»'l 
J  -1 

In  the  present  TAMALE  code  the  capability  exists  for  solving  the 
transport  equation  with  retardation  effects  but  without  scattering,  or  solv¬ 
ing  the  transport  equation  with  scattering  but  without  retardation  effects. 
The  treatment  of  retardation  is  discussed  in  Ref.  4  and  in  Ref.  5  and  is 
not  further  considered  this  report. 

With  the  retardation  term  1/c  91/  9t  discarded,  the  equation  to  be 
solved  becomes 


a“  +  (/i'a  +  Ms)Is!M,aB+-^  [<3  "  ^  f 

+  (3m2  -  1)  f  I(M')M,2dM'] 


(38) 
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or 


I(x2)  =  Ux^e 


(M'a  +  (.s)(x2-xi) 


,X2  -(I*1  +  (i  )(*,  -  *') 

+  /  m'  B(x')e  a  dx'  +  F  (x_ ) 

J  a.  sc 

X1 


(39) 


where 


Fs<V 


3  (  r  2  1 

=  T6ms  J  !<3  -  **  )  /  Km'Mm' 

X,  w  -1 


+  (3m2  -  1)  f  I(M')M,2dM'  1' 
-1  J 


-(M'  +  p)(x  -x') 

a  sc 


dx 


2.3.  NUMERICAL  SOLUTION  OF  THE  TRANSPORT  EQUATION  WITH 
THOMSON  SCATTERING 


The  numerical  solution  to  Eq.  (39)  above  has  been  developed  in  Ref.  6. 
The  salient  features  of  this  development  will  be  repeated  for  continuity  and 
ease  of  reference. 

The  first  two  terms  on  the  right  side  have  already  been  considered 
in  Ref.  2.  In  evaluating  the  third  term,  F  (x_),  two  numerical  approxi- 

8  Ld 

mations  are  made: 


1.  The  radiation  energy  and  pressure  vary  linearly  with  x. 

2  2  2  2  2  2 

2.  p  a  x  /(a  +  y  ),  where  a  =  (x2  +x^)^/4  and  x^sx<  x^. 

With  these  assumptions  the  scattering  source  contribution  can  be  developed 
in  the  following  manner: 
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+  [  ^  (To(x2)  '  To(*l*  +  a2(2T2(x2)A+x2(T2(x2)  '  T2 


,2  -  e'MA  l(pA)2  +  2p  A  +  2l 


(?A)3 


)(T2(X2)A+2*2(T2(*2)-T2(Xl)))J2 


+  (g^igA.)3,3(gA)2  +  tfA,6)-6l  >  (  .  )}  ^ 

(?A)4  2  2  2  °  a2 


where 


*  ■  x2  -  *1 


P  =(*'.  +  (i 


a  s 


!k  =  f  K/0  MkdM 


T  (x)  =  3I(x)-I(x) 
o  l  o  l  2  l 


T2<xi>  *  312<xi>  -  W 


To  avoid  loss  of  numerical  significance  when  Ji A  <  0.  1,  the  following 
approximations  are  used: 


,1  -  e’*A  „  MA 

hrs- 1 1 98 1  mmr 


--fif  -  1/2 


2  (A?)2  +  2AA+  2 


(MA)  +  3(m  A)  +6SA+  6 


# 

/ 


58 


\LS 


4- 


wia 


* 


v*  r 


f  - 
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2.4.  THE  TAMALE  CODE 

The  coding  to  incorporate  Thomson  scattering  into  TAMALE  is  con¬ 
tained  completely  within  the  subroutines  RADTN»  TRANS,  and  RETARD. 

The  logic  of  the  calculation  proceeds  exactly  as  before  in  the  TAMALE 

code.  Three  new  quantities,  M  ,  T  (x.),  and  T,(x.)  must  be  available  in  the 

RETARD  subroutine  to  complete  the  calculation.  The  scattering  coefficient 

u  is  defined  as  K„p,  where  K_  is  an  input  number  CAPAC(52)  and  p  is  the 
s  S  o 

material  density.  In  the  applications  considered,  the  quantity  Kg  has  been 
set  to  .2,  corresponding  to  Z/2  free  electrons  per  atom,  where  Z  is  the 
atomic  number.  The  other  two  quantities,  T  (x.)  and  T_(x.),  are  stored  in 

O  1  LI 

arrays  FIO  (IHNU,  x{)  and  FI2(IHNU,  x^.  These  arrays  are  located  in 
CHUCK  common. 

An  iteration  feature  has  been  added  to  the  transport  calculation.  In 
solving  Eq.  (40),  the  assumption  had  been  made  that  the  intensity  Ifx^.t^) 
could  be  evaluated  from  the  moments  of  the  intensity  Iq(x,  t^j)  and 
I  (x,  t  )  at  an  earlier  time  step.  This  assumption  is  not  valid  in  general; 
in  particular,  on  a  restart  or  an  initial  start  the  values  in  the  arrays  FIO 
and  F12  are  zero,  so  that  there  will  initially  be  a  decrease  in  the  intensity 
due  to  scattering  out  of  the  beam  but  no  corresponding  increase  due  to 
scattering  into  the  beam,  and  conservation  of  photons  is  violated,  rhis 
problem  is  alleviated  by  an  implicit  iteration  procedure.  The  user  has  at 
his  disposal  two  parameters.  One  parameter  is  the  maximum  number  of 
iterations  (CAPAC(50))  and  the  other  is  the  convergence  criterion  which  the 
functions  FI0(IHNU,  x.)  and  FI2(IHNU,x.)  must  satisfy  before  continuing  the 
calculation  (CAPAC(51)). 
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The  input  quantities  specifically  used  when  Thomson  scattering  is 
employed  are  summarized  below  (these  are  also  the  values  used  for  a 
sample  problem  that  was  solved  on  the  AFWL.  computer): 


Card  No. 

Quantity 

Value 

Purpose 

77 

CVB 

1 

Specifies  all  y-lines 

2638 

CAPAC(SC) 

10. 

Number  of  iterations 

2639 

CAPAC(51) 

.  1 

Gives  10%  accuracy  criterion 

2640 

CAPAC(52) 

.2 

Specifies  Kg 
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SECTION  in 

TWO-DIMENSIONAL  RADIATION  TRANSPORT  TECHNIQUES. 
A  SURVEY  OF  METHODS 


3.1.  INTRODUCTION 

Several  methods  for  calculating  the  effects  of  radiation  in  hydro- 
dynamical  problems  have  been  proposed  and  tried.  In  this  section,  a  few 
of  the  better  methods  are  compared. 

The  quantity  of  interest  is  the  rate  of  deposition  of  radiant  energy  as 
a  function  of  time  and  position.  The  methods  to  be  discussed  relate  the 
deposition  to  the  radiant  intensity  I,  which  is  defined  by 

dE  =  I(x,  n,  V,t)  n  •  da  dn  dvdt 

where  dE  is  the  amount  of  radiant  energy  in  a  band  dv  of  frequencies  that 
flows  through  an  element  of  area  da  at  x  in  directions  contained  in  the 
solid  angle  df2  during  time  interval  dt  (polarization  being  neglected).  Two 
related  quantities  of  first  importance  are  the  density  E  and  the  flux  F  of 
radiant  energy,  which  are  defined  as 


E("x,  v ,t)  =+~J  IdD 
F(x,i/,t)=J  nidn 

The  rate  of  deposition  of  radiant  energy  is 


(41) 


A  =  c /  <Td(x,  v,t)  E  (x,v,t)d»/ 


(42) 


where  a  is  a  coefficient  that  depends  on  the  properties  of  matter  at  x,  t. 
d 
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Th^  material  will,  of  course,  be  radiating  energy  at  some  rate  R(x,t),  so 
that  the  net  rate  at  which  it  gains  energy  from  the  radiation  field  is  A  -  R. 
The  equation  for  transport  of  radiation  is 


i- ~+  O  •  VI  +  (7  I  =  S  (43) 

c  9t  t 

where  at(x,  y,t)  is  the  reciprocal  of  the  mean  free  path  (corrected  for 
induced  emission)  of  photons  of  frequency  v  near  x  at  time  t,  and  S  is  the 
source,  which  is  defined  by 

dE'  =  S(x,  fl,v,t)dVdf2dvdt 


where  dE'  is  the  amount  of  radiant  energy  leaving  the  element  of  volume 
dV  around  x  in  directions  contained  in  the  solid  angle  dQ  in  the  frequency 
band  dp  during  time  interval  dt.  The  two  contributions  to  the  source  are 
emission 


S 

e 


(x,n  .v.t) 


x(x,  i/,t)R(x,t) 

4ir 


where  X  is  the  spectrum,  and  scattering 

s(x,Q,v,t )  -fj  ajix.n' tt.v'  —  v,t)  l(x,0'  ,  v'  ,  t)d«'  dy' 

where  a  is  a  coefficient  of  scattering.  Near  local  thermodynamic  equili- 
s 

brium  (LTE), 

S  (x,Q,v,t)  =  <r  (x,  p,t)  B(fl(  x,t),p ) 
e  a 

% 

where  a  is  the  coefficient  of  absorption,  corrected  for  induced  emission, 
a 

and  B  is  the  Planck  function.  When  departures  from  LTE  are  significant, 

S  takes  a  more  complicated  form,  but  the  problem  of  how  best  to  calculate 
e 

it  is  beyond  the  scope  of  this  report.  The  significant  point  is  that  is 
isotropic  and  strongly  temperature  dependent. 
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The  methods  that  are  discussed  below  for  finding  numerical  solutions 
of  the  transport  equation  are  of  three  types:  (1)  methods  that  use  a  finite 
set  of  directions,  (2)  methods  that  involve  the  calculation  of  moments,  and 
(3)  Monte  Carlo.  Methods  of  the  first  two  types  are  designed  to  calculate 
the  intensity  I  for  a  given  distribution  of  the  source  S.  But  wherever 
scattering  is  an  important  effect,  the  source  depends  on  the  intensity.  It 
then  becomes  necessary  either  to  iterate  to  obtain  consistency  between  I 
and  S,  or,  if  sufficiently  small  time  steps  are  being  taken,  to  use  the  S 
from  one  time  step  for  calculating  I  at  the  next  time  step,  or  something  of 
this  sort.  In  fact,  at  frequencies  where  Compton  scattering  is  important, 
the  calculation  of  the  source  may  become  a  major  part  of  the  total  effort. 

In  order  to  keep  the  discussion  as  simple  and  as  explicit  as  possible, 
only  applications  using  an  Eulerian  technique  to  calculate  hydrodynamics 
in  an  r-z  coordinate  system  (cylindrical  coordinates  without  the  angular 
variable)  will  be  considered.  It  will  further  be  assumed  that  the  hydro- 
dynamical  calculation  will  advance  material  properties  from  time 
t  =  tn_1y2tot  =  txl+1/2»  assumil*g  that  the  rates  of  transfer  of  radiant 

energy  are  held  constant  at  values  computed  for  t  -•  t  .  Then  radiant 
intensities  and  transfer  rates  are  calculated  at  time  t  assuming  tem¬ 
peratures,  densities,  and  opacities  during  the  interval  t  s  tst  are  as 

n  n+1 

calculated  for  t  =  t  .  , 

n+1/2. 

3.2.  THE  METHOD  OF  MOMENTS 

The  method  of  moments  consists  in  multiplying  the  vanishing  quantity 

1  91  — 

Z  -r-  +Q  •  VI  +  ffl  -  S 
c  ot 

by  each  of  a  set  of  weighting  functions  and  integrating  the  products  over 
the  domain  of  S2.  Thus, 
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f  1  •  Zd£2  =-^~  / +  V.J  £?Id£2  +  a  J  Id£2  -  J  Sd£2 


3E 
8  t 


+  V  •  F  +  c<jE  -  Sd  =0 


-/ 


and 


/ 


nzdn  =— -i-  J  nidn  +  v  ■  J  QQidn  +  <j  'f  nidn  -  Jnsdn 


c  8t 
1  8F 


c  8 


|-+  V  •  J  fifildn  +  aF  -  J  £2Sd«  =  0 


where  E  and  F  are  as  defined  by  Eq.  (41).  The  next  step  would  be  to  calcu¬ 
late  j  £2  £2zd£2  ,  but  for  present  purposes,  the  calculation  will  stop  with  the 
first  moment.  It  is  characteristic  of  the  method  that  each  equation  is 
coupled  with  the  next  through  the  moment  of  the  streaming  term  £1  •  VI. 
Various  ways  of  truncating  the  system  of  equations  have  been  proposed. 

For  the  purpose  of  illustration,  the  simplest  of  these  ways  may  be  chosen, 
namely,  to  assume  that  moments  of  the  intensity  beyond  a  certain  order  are 

negligible.  Thus,  suppose  that  I  =  a  +  a  •  £2;  in  which  case 

o  X 


and 


4ira  a 


c  c 


i-Is 


4it  a 


d£2  =■ 


=  J  £2  Id£2  =  a q  J  £2d£2  +  a 


1  •  /  o 


4tt  a. 


£2d£2  - 


That  is, 


and 


I  = 


cE  +  3F  •  £2 
4  IT 


(44) 


V  •  [  n  £2ld£2  =  V  •  f  n  £2d£2  +  4~  V  .  f  n  n  £2d£2  •  F 
J  4  IT  J  4  IT  J 


-f EV 
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The  equations  then  become 

3E  “*•  e 

-j^-+  V-  F  +  caL  m  J  SdP 

1  8F  c  *  -  r  ■— 

—  —  +  -  VE  +  ctF  =  /  J2Sd Si 
c  gt  3  j 


(45) 


This  approximation,  which  is  sometimes  called  non-equilibrium  diffusion, 
has  been  studied  in  some  detail  (see  Refs.  1  and  2)  and  is  adequate  to 
describe  a  wide  range  of  interesting  configurations.  Nevertheless,  formula 
(44)  is  not  a  good  representation  of  radiation  which  is,  say,  streaming  away 
from  a  localized  source  in  a  thin  medium.  Theoretically,  the  approximation 
can  be  improved  simply  by  taking  account  of  more  moments.  The  weighting 
functions  most  often  used  fc .  calculating  higher  moments  of  functions 
defined  on  a  sphere  are  the  spherical  harmonics,  which  have  the  advantage 
of  being  orthogonal.  However,  spherical  harmonics  are  not  well  adapted  to 
representing  the  angular  dependence  of  radiant  intensity,  because  the  in¬ 
tensity  often  becomes  an  almost  discontinuous  function  of  angle  near  abrupt 
changes  in  opacity  and  the  expansion  of  such  a  function  in  spherical  har¬ 
monics  converges  very  slowly.  The  difficulty  cannot,  however,  be  attrib¬ 
uted  to  the  use  of  spherical  harmonics.  If  the  intensity  were  represented 
as 

i(0)  =  aQ  +  Tj  •  n  +  ja2  •  •  a) 

+  (I3  •  o,(b3  ■  n)(T3 •  n)  +  ... 

the  rate  of  convergence  would  be  the  same.  Yvon  (see  Ref.  3,  p.101)  has 
suggested  that  the  convergence  could  be  improved  by  expanding  I  and  I 
independently,  but  it  is  hard  to  generalize  his  idea  to  two  dimensions. 

Another  disadvantage  of  the  method  of  moments  is  that  the  matrix 
of  the  finite  difference  operator  yielded  by  this  method  as  an  approximation 
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to  the  differential  transport  operator  (D  •  V  +  a)  is  rather  difficult  to 
invert,  so  that  a  time-consuming  iterative  procedure  is  required  to  calculate 
the  intensity  at  each  time  step  (see,  for  example,  Ref.  4). 

3.3.  DISCRETE  ORDINATES 

Wick  (Ref.  5),  in  studying  scattering  of  light  in  plane  atmospheres,  got 

around  the  difficulty  of  representing  an  intensity  whose  angular  distribution 

is  nearly  discontinuous  by  limiting  the  determination  of  I(  D)  to  a  fixed  finite 

set  of  directions  £2  i=l,...,n  which  are  more  or  less  uniformly  distributed. 

The  quantities  I.  =  I (D.)  are  the  so-called  discrete  ordinates  oi  the  method. 

Carlson'  s  S  method  (Ref.  6)  is  one  of  the  most  widely  applied  numerical 
n 

versions  of  the  discrete  ordinate  method.  His  procedure  amounts  to  re¬ 
placing  the  derivatives  in  the  transport  equation  (43)  by  finite  difference 
quotients.  To  do  this  in  finite  cylindrical  geometry,  first  set 


£2  =  flk  +  (1 


2.1/2.  ,  r 

■H  )  (cos  0  l 


+  sin  0  j) 


(46) 


where  k  is  a  unit  vector  parallel  to  the  z-axis,  i  is  a  unit  vector  perpen¬ 
dicular  to  k  and  pointing  away  from  the  axis  of  symmetry  of  the  system, 
and  j*=  iTxT.  Then  £2  •  VI  can  be  expressed  as  a  sum  of  partial  deriva¬ 
tives,  and  the  transport  equation  (43)  becomes 


1  31  31  ,,  2.1/2  ,  31  sin  0 

T-sr+#i  87+(1-"  >  (cos0“" 


3r 
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■)  +  crl  =  S 


(47) 


A  discrete  system  of  points  in  r-z-t  space  has  already  been  provided 
by  the  assumptions  concerning  the  way  the  hydrodynamics  is  being  com¬ 
puted.  It  remains  only  to  discretize  the  angular  variables.  This  is  done 
by  selecting  a  set  of  H' s  that  are  evenly  distributed  between  -1  and  +1. 
Then  0' s  are  chosen  for  each  \x  in  such  a  way  that  the  resulting  directions 
are  more  or  less  evenly  distributed  over  the  unit  sphere,  for  example,  as 


shown  in  Fig. 7. 
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Figure  7.  Typical  Distribution  of  Directions. 


Having  the  selected  values  of  <p  depend  on  the  value  of  p  causes  no 


81 


difficulty  because  -g—  does  :*ot  occur  in  the  differential  equation  (47).  Let 


h  7  “  =  I(ri'zT’ 
i,j,m  i  j  m 


where 


z-=l/2(z.  +  z.  ),  =  1/2(0  +  <f>  .] 

j  j  J-l  m  m  m- 1 


and  n  ,  v  ,  and  t  are  fixed.  Then  it  is  possible  to  approximate 


rrr  01  .  „  2.1/2  ,  .81  sin<f>  81 

)  (cos  ) 
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by 


I  T  - - I-  .  _ 

TI  =  2/ii  1,J»m  1J»m 


J 


Zj-1 


+  (1  -  /i2)1/2  [cos  <(>_ 

I  m 

r.  -  r.  , 
i  l-l 


m 


(I~  "r  — 
i.J.m 


i.j.m- 1 


»l 


whe  re 


I.-r-  +1.  ,  T  - 
I _ -  i»j  ,m 

i.j.m  2 


I_  _  =  2I_  _  -  I_ 
i.j.m  iij,m  i,j-l,m 


Irr  =  21---  -  I-- 
1»J»m  i.J.m  i.j.m-l 


cos  +  cos  0__ 

*y  —  ^  in—  1 

m  m-1  Z~ - — 


and 


=- 


cos 


Here  T  and  T  denote  the  differential  operator  Q  .  V  and  its  finite  difference 
approximation,  respectively.  Then,  with  the  .assumption  that  I  = 

<M,tn).  the  whole  transport  equation  can  be  approximated  by 


1  V^-l 


TI  +  TI 


n 


n-1 


t  - 
n 


<J  I 
n  n 


+  o  .1  , 

n-1  n-1 


n-1 


S  +  S 
n  n-1 

2 
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or 


1 - - - +  (1/2)(TI  +  <t  I  ) 

c  t  -  t  n  n  n 


n 


n-1 


"irrh  +  >1/2*Sn  +  Sn-l  -  fln-l  *  Vl'n-!1 

n  n-1 


(48) 


The  quantities  y  ,  which  approximate  sin  0m/A0,  are  chosen  as 
they  are  so  that  the  difference  equations  conserve  energy  exactly. 

A  difficulty  with  the  method  is  that  the  spatial  integration,  i.e.,  the 
solution  of  Eq.  (48)  for  some  particular  value  of  t,  tends  to  become  unstable 

unless 


„  2,1  /2  . 

.  (1  -  n  )  cos  0 

r.  -  r.  <  min - - 

1  1-1  a 

c  At 

at  all  points,  a  condition  which  is  very  likely  to  be  violated  in  opaque  re¬ 
gions  unless  the  mesh  is  extraordinarily  fine.  Various  remedies  are 
possible.  One  is  to  subdivide  the  mesh  in  opaque  regions  so  that  the  optical 
distance  between  neighboring  mesh  points  will  be  below  some  limit  for  all 
zones  in  the  radiation  calculation.  Another  possibility  is  to  make  opaque 
regions  external  to  the  transport  calculation  since  they  can  be  adequately 
treated  in  a  diffusion  approximation  anyway.  The  trouble  with  the  first 
suggestion  is  that  adding  subdivisions  to  opaque  regions  can  increase  the 
amount  of  computing  that  must  be  done  by  a  sizeable  factor.  The  second 
suggestion  has  considerable  merit  if  applied  in  conjunction  with  the  first, 
but  by  itself  does  not  help  in  regions  that  are  thick  enough  to  be  unstable 
in  the  S  method  but  for  which  the  diffusion  approximation  is  poor. 

A^ossibility  that  abandons  the  use  of  linear  difference  equations  to 
represent  the  transport  operator  is  one  that  Richtmyer  (see  Ref.  7,  p.151) 
attributes  to  von  Neumann.  It  is  variously  called  the  method  of  direct 
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integration  or  the  method  of  characteristics.  The  basic  idea  is  the  ob¬ 
servation  that  solutions  of  the  transport  equation  must  satisfy  the  equation 


I(x,fi,  v,t)  =  I(  x  -  sf2,J2,  v,t  -  — )  e  ° 

c 


s  _  _ 

-  J  <t(  x-u'*2,  v  ,t-^)du 


+  J  S(x.un,n,v,t-^)e  ° 

o 


U 

-j  <r(x-vf2,  v,t  -  ~)dv 


The  paths  of  integration,  which  are  of  the  form 


x  =  x  +  sfi 
o 

t  =  t  +-£ 
o  c 


where  the  distance  s  along  the  path  is  a  parameter,  are  paths  in  space - 
time.  They  lie  on  characteristic  cones  of  the  differential  operator 


which  is  the  basis  for  the  name  "method  of  characteristics."  One  can  use 
Eq.  (49)  to  estimate  the  intensity  of  radiation  at  some  point  x  with  coordi¬ 
nates  r^>zj  at  some  time  t^j  and  having  some  direction  f2  by  finding  the 

smallest  value  of  s  for  which  x  -  sf2  falls  on  one  of  the  surfaces  r  =  r.  , . 

i±l 

or  z  =  z  ^  or  t  =  t^.  Suppose,  as  shown  in  Fig.  8,  that  this  point  falls  on 

r  =  r  with  z.  <  z  <  z.  and  t  <  t  ,  -  s/c.  Then,  by  interpolation, 

1+1  J-l  j  n  n+1  7 

using  the  points  r.  ,a.  and  r.  z.  ,  at  times  t  ,  and  t  ,  one  can  estimate 
l+l  j  l+l  j-l  n+1  n 

I(  x  -  sfl  ,12,  v,  t  ^  “  ^)»  and  then,  assuming  that  one  knows  <7  and  S  along 

the  path  of  integration,  I(x,I2,  p,t  )  can  be  calculated  at  x  =  (r.,z.).  Of 

n  l  j 
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course,  some  of  the  required  information  will  be  missing  unless  the  cal¬ 
culation  proceeds  in  the  proper  sequence,  e.g.,  r  decreasing  and  z  increas¬ 
ing  for  12  pointing  somewhat  upward  and  toward  the  axis.  Another  point  that 
has  been  glossed  over  is  the  fact  that  the  angle  0  defined  by  Eq.  (46) 
changes  along  the  path,  so  an  interpolation  involving  fi  must  also  be  per¬ 
formed.  Interpolation  in  0  is  particularly  bad  and  is  just  what  the  method 
of  discrete  ordinates  was  supposed  to  avoid.  The  Sn  method,  in  which 
8  1/8  0  is  approximated  by  a  difference  quotient,  suffers  from  the  same 
malady. 


Figure  8.  Typical  Short  Characteristic 


The  remaining  details  will  not  be  discussed  here;  instead  the  approach 
will  be  changed  to  one  avoiding  extensive  interpolation  by  integrating  Eq. 

(49)  over  paths  that  run  straight  through  the  system  between  pairs  of  points 
on  the  outer  boundary.  The  idea  is  to  ignore  the  vertices  of  the  mesh  and 
determine  the  rate  of  deposition  of  radiant  energy  in  the  zones  (which,  in 
the  present  case,  are  toroids  of  rectangular  cross  section)  by  suitably 
averaging  the  intensities  along  the  paths  that  they  intersect. 
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The  first  problem  that  arises  in  implementing  the  method  is  choosing 
an  appropriate  set  of  paths.  The  simplest  approach  is  perhaps  to  choose 
the  paths  so  that  they  fill  the  region  of  interest  more  or  less  uniformly  in 
space  and  direction.  The.  advantage  of  this  choice  is  that  in  calculating 
rates  of  deposition  of  radiant  energy  from  the  intensities  along  the  paths, 
all  paths  will  have  about  the  same  weight.  To  see  how  lines  with  the  de¬ 
sired  uniform  distribution  can  be  constructed,  define  a  grid  to  be  a  set  of 
parallel  lines  that  intersect  a  normal  plane  in  a  regular  pattern  of  points, 
e.g.,  in  a  square  lattice.  Next,  select  a  finite  set  of  directions  that  are 
more  or  less  uniformly  distributed,  e.g.,  the  directions  from  the  center  of 
a  regular  polyhedron  to  its  vertices.  Then  the  set  of  lines  obtained  by  com¬ 
bining  a  collection  of  congruent  grids  whose  directions  are  those  of  the 
selected  set  will  have  the  desired  uniformity.  The  integration  paths  are 
simply  obtained  as  the  intersection  of  the  collection  of  lines  with  the  domain 
of  the  hydro  dynamical  problem,  which  is  a  cylinder  of  finite  length. 

It  is  next  necessary  to  consider  the  problem  of  calculating  intensities 

and  rates  of  deposition  of  radiant  energy  during  the  time  interval 

t  <  t  s  t  .  Suppose  that  at  t  =  t  one  is  given  estimates  of  the  intensity 
n  n+1  n 

at  uniformly  spaced  points  along  each  of  the  paths.  Then,  by  rewriting  (49) 
as 


i(x  +  sii.n,  v,t  +— )  =  i(x,n, »>,t)  e 


U 


+  J  S(x  +  uI2,  v,t  +  -^)e 


-  j  (x+vI2, v,t+--)dv 


du 


(50) 


the  intensity  can  be  advanced  a  distance  c(t  -t  )  along  each  path.  These 

n+1  n 

pulses  of  radiation  will  continually  be  lost  by  emerging  from  the  system. 
They  must  be  replenished  by  beginning  new  ones  at  points  where  the  paths 
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begin.  The  initial  intensity  must  be  specified  as  a  boundary  condition.  The 

energy  deposited  in  a  zone  during  the  time  interval  t  <  ts  t  bv  radia- 

n  n+1  1 

tion  of  frequency  y  may  then  be  estimated  to  be 


s„ 


E  =  V 


2  ^  - 

E  /  <t(x  +  sfi,  y,t  +-)  I(x  +  sfl,  n,  y,t  +—  )ds 
S1  c  c 


/. 


) 


(51) 


Z(s2  '  V 


where  the  summation  is  carried  out  over  all  paths  intersecting  the  zone, 
and  si  s  s  s  Sj,  is  the  segment  of  the  path  that  the  pulse  of  radiation,  which 
is  located  at  x  at  time  t,  sweeps  out  in  the  zone  during  the  time  interval, 
and  V  is  the  volume  of  the  zone. 

The  version  of  the  method  of  characteristics  just  described  has  two 
important  advantages:  (1)  It  is  possible  to  traverse  optically  thick  seg¬ 
ments  in  one  step,  and  (2)  the  three-dimensional  interpolation  of  previously 
described  discrete  ordinate  methods  is  avoided. 

On  the  other  hand,  the  method  has  several  disadvantages.  One  of 
them  is  the  large  number  of  exponentials  that  must  be  calculated.  However, 
this  is  a  reasonable  price  to  pay  for  being  able  to  traverse  long  segments, 
because  di^  t  methods  for  evaluating  exponentials  are  more  efficient  than  »■* 
finite  difference  methods,  and  one  can  say  that,  in  essence,  Sn  calculates 
exponentials  by  a  numerical  integration.  There  are  other  difficulties  con¬ 
nected  with  the  absence  of  interpolation.  For  example:  (1)  the  summation 
in  Eq.  (51)  is  a  rather  crude  approximation  to  an  integral  over  x,  O,  and  t; 

(2)  if  anisotropy  of  scattering  is  a  significant  effect,  then  the  contribution 
of  scattering  to  the  source  S  in  Eq.  (50)  will  be  difficult  to  approximate; 

(3)  in  order  to  get  an  adequate  density  of  paths  near  the  axis  of  the  system, 
the  density  near  the  boundary  must  be  much  higher  than  necessary;  and 

(4)  energy  is  not  conserved  in  the  numerical  approximation.  Refinements 
of  the  method  will  be  left  to  subsequent  reports.  It  suffices  to  say  that  the 
method  can  be  improved  by  using  some  interpolation,  but  not  so  much  as  the 
earlier  versions  used. 
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3.4.  THE  MONTE  CARLO  METHOD 


The  Monte  Carlo  method  discussed  below  is  patterned  after  one  de- 

scribed  by  Fleck  (Ref.  8).  As  before,  the  over-all  procedure  is  first  to  advance 

the  temperature  and  other  material  properties  from  time  t  to  time 

n-1/2 

*11+1/2  ^  then  to  caIculate  the  radiant  flux  at  t  =  t  ,  from  that  at  t  =  t 

n+1  n' 


assuming  that  the  average  temperature  in  the  time  interval  t  s  t  $t 

n  n+1 

its  value  at  t  =  t  ,  . 

n+1/2 


The  Monte  Carlo  procedure  involves  generating  a  number  of  pulses  of 
radiation,  called  photons,  from  the  given  temperature  distribution  and  fol¬ 
lowing  them  until  t  =  t^+1  unless  they  are  absorbed  or  escape  first.  Those 
photons  that  survive  until  t^  are  noted,  and  their  histories  are  continued 
daring  the  next  time  interval. 

The  numerical  photons,  unlike  real  ones,  all  have  the  same  energy 
E0.  Thus,  the  number  of  photons  generated  in  any  given  zone  during  the 
interval  ^  st<  t^  is  the  ratio  of  the  radiant  energy  liberated  by  the  zone 


during  that  interval  to  the  energy  Eq  of  the  photons.  The  fate  of  a  fractional 
photon  is  decided  by  Russian  roulette. 

The  process  of  following  a  photon  consists  first  in  determining  the 
distance  to  each  of  three  possible  events:  (1)  penetrating  the  boundary  of 
a  zone,  (2)  collision,  and  (3)  census.  Given  the  position  of  a  photon  and  its 
direction,  the  distance  dg  it  has  to  go  before  hitting  the  boundary  of  the 

zone  it  is  in  can  be  calculated  directly.  The  distance  of  the  photon  from  its 
next  collision  is 


dCOl  =  log  R 

where  \  is  the  mean  distance  between  collisions,  which  is  a  function  of  the 

material  properties  of  the  zone  and  the  frequency  of  the  photon,  and  R  is  a 

random  number  drawn  from  a  population  distributed  uniformly  over  the  real 

interval  0  SRs  1.  The  distance  to  census  is  simply  d  =  (t  -t)/c 

cen  n+1 
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The  event  which  actually  occurs  next  is  the  one  that  occurs  -within  the 
shortest  distance.  If  it  is  a  collision,  a  new  random  number  R  between  0 
and  1  is  chosen  and  compared  with  the  absorption  probability  p.  If  R  <  p, 
the  collision  is  declared  to  have  resulted  in  an  absorption  and  the  history 
of  the  photon  is  terminated.  Otherwise,  a  new  direction  is  chosen  accord¬ 
ing  to  an  appropriate  scattering  law.  If  the  frequency  of  the  photon  is  so 
high  that  the  Compton  effect  is  significant,  then  the  change  of  frequency 
must  also  be  calculated. 

If  the  next  event  is  a  boundary  crossing,  either  the  b-'mdary  is  an 
external  boundary,  in  which  case  the  photon  is  lost,  or  t  lse  it  is  an  inter¬ 
face  between  zones  and  the  history  is  continued  from  the  new  position  and 
time  but  without  change  of  direction  or  frequency.  Finally,  when  photon 
reaches  census,  its  state  is  recorded  and  its  history  is  continued  during  the 
next  interval  of  time. 

The  amount  of  energy  deposited  by  the  photon  as  it  travels  between  a 
pair  of  consecutive  events  is  estimated  to  be  E0a,js,  where  is  the  co¬ 
efficient  in  Eq.  (42),  which  depends  on  the  frequency  of  the  photon  and  the 
state  of  the  zone  in  which  the  segment  of  path  lies,  and  s  is  the  distance 
between  the  pair  of  events.  The  total  amount  of  radiant  energy  deposited 

in  each  zone  during  t  ,  s  t  S  t  is  taken  to  be  the  sum  of  such 

n-1  n 

contributions. 

3.5.  CONCLUSIONS 

Among  the  methods  outlined  above,  Monte  Carlo  and  the  method  of 
characteristics  appear  to  be  the  most  promising.  The  principal  advantage 
of  Monte  Carlo,  in  most  of  its  applications,  is  that  it  provides  a  straight¬ 
forward  way  to  handle  the  various  complications  that  arise  in  performing 
integrations  over  domains  of  high  dimension.  Examples  of  such  complica¬ 
tions  that  occur  in  problems  of  radiative  transport  are  retardation, 
scattering,  and,  especially  in  connection  with  a  Lagrangian  mesh  for  de¬ 
scribing  material  properties,  geometrical  detail.  Another  advantage  of  the 
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Monte  Carlo  method  is  that  the  wo’*k  can  be  much  reduced  if  a  good  estimate 
of  the  importance  is  available.  With  reference  to  the  present  application, 
this  is  much  the  same  as  saying  that  the  Monte  Carlo  described  above  con¬ 
centrates  the  numerical  work  in  those  regions  where  the  radiant  intensity 
is  high  because  that  is  where  the  photons  are,  whereas  the  method  of  char¬ 
acteristics  requires  about  the  same  amount  of  calculation  in  regions  of 
equal  size  regardless  of  the  intensity. 

On  the  other  hand,  Monte  Carlo  methods  converge  very  slowly.  Also, 
while  they  may  provide  the  best  methodfor  obtaining  a  first  estimate  of  a 
single  multiple  integral,  they  are  not  generally  good  for  obtaining  distri¬ 
butions,  which  is  just  what  is  wanted:  the  rate  of  deposition  of  radiant 
energy  in  three  dimensions--r,  z,  and  t. 

Fux'ther,  the^e  are  two  serious  disadvantages  of  the  Monte  Carlo  pro¬ 
cedure  described  above  as  applied  to  the  particular  present  problem.  One 
is  that  the  geometrical  calculation  has  to  be  repeated  every  time  step, 
whereas  in  an  Eulerian  mesh,  nonstochastic  methods  require  that  geometri¬ 
cal  coefficients  be  calculated  only  once.  The  other  is  that  the  method  will 
bog  down  in  any  hot  opaque  zone  in  which  a  great  number  of  paths  will  begin 
and  end. 

The  conclusion  is  that  the  method  of  moments  should  be  used  when 
the  first  two  moments  (of  degrees  0  a  d  1)  are  adequate  ,  and  that  the  method 
of  characteristics  should  be  used  when  a  better  transport  approximation  is 
required. 
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SECTION  IV 


NON- EQUILIBRIUM  DIFFUSION  METHODS  FOR  HECTIC 


4.1.  INTRODUCTION 

The  code  TDRAD  calculates  the  solution  to  the  two  moment  equations 
(45)  as  the  radiation  calculation  in  HECTIC.  If  we  set 

fSd^  =  s  and  /DSdH  =  0 

assuming  the  source  to  be  isotropic,  and  neglect  retardation,  the  equations 
become 

V1  F  +  cffEss 

(52) 

c  F 

|VE+r  =  ° 

Here,  F/A  occurs  in  place  of  aF.  An  improvement  in  the  approxi¬ 
mation  can  be  made  by  allowing  1  /  A  to  be  unequal  to  t t  because  the  Planck 
mean  opacity  is  appropriate  for  estimating  emission  and  absorption  coef¬ 
ficients,  while  the  Rosseland  mean  is  the  one  to  use  for  transmission 
coefficients. 

In  cylindrical  coordinates,  these  equations  become 

1  8  8 
—  r—  (r  F  )  +  -r—  F  +c(7E  =  s 
r  8r  '  r'  8z  z 

£®I  +  IF  =0  (53) 

3  Br  A  r 

£?l+iF  =0 

3  9z  +  \  *  z 


*  *  V 
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4.2.  THE  FINITE  DIFFERENCE  APPROXIMATION 

Let  r.,  z.  denote  the  coordinate  pair  of  the  mesh  point  i,  j  in  HECTIC 
(see  Fig.  9).  Let  E.^  +  +  ^  denote  the  value  of  E  at  the  center  of 


Figure  9- 

the  zoie  i,  j,  i.e.,  at  r  =  (r.  + 

denote  the  value  F  at  z  =  z.( 
z  J 

the  value  of  2  rF  at  r  =  r.,  z  ■ 
i  l 


Hydrodynamic  Mesh 

ri+i)/2,  z=(zj+.j  +  1)/2.  LetF.+1/2J 
r  =  (r.  +  r^  +  j)/2,  and  let  G.  ^  +  ^2  denote 
=  lz\  +  +  i^2  (see  Fig.  10). 

J  J  * 


Figure  10.  Typical  Cell  of  Mesh 
Then  a  set  of  difference  equations  compatible  with  Eq.  (53)  is 
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at,-. 

4 


"i+l,  j+1/2  ~  ^i,  j+1/2  +  r  i+1/2, j+1  ~  Fi + 1  / 2 ,  ,j 


ri+l  “  ri 


2  ,  ,  -  Z  . 

J+1  J 


+  C  (7 


i+1/2, j+1/2  Ei+l/2, j+1/2  =  Si+l/2, j+1/2 


__ 

*£_  _i+l/2, j+1/2  "  i+1/2, 1-1/2  *1+1/2. i 

3  z  -  z  +  T -  =  0 

j+1  j-1  i+l/2,  j 


Ilf*  Ei+l/2, j+1/2  ~  Ei-l/2, i+1/2  Gi, j+1/2 

3  r  -  r  +  \ 


r *  *  i  -  r,  t 
l+l  l-l 


+  =0 
i,  j+1/2 


where 


Zj+1  "  Zj-1 


Li+l/2,j  z  -  z.  z.  -  z.  . 

J+1  J  x  J 


Xi+l/2, j+1/2  Xi+l/2,j-l/2 


\  -  ri+l  "  ri-l 

i, j+1  /2  rH|  -  r.  +  r.  -  y, 

N+l/2,  j+1/2  Xi-l/2, j+1/2 


Eliminating  F  and  G  from  Eq.  (54)  gives 


AijEi-l/2,  j+1/2  +  Bij  Ei+l/2,  j+1/2  +  Cij  Ei+3/2,  j+1/2 


+  Ei+l/2,  j-1/2  +  Yij  Ei+l/2,  j+3/2  +  °ij  =  0 


i 


AFWL-TR-66- 108,  Vol  I 


where 


A 

4criXi.  j+l/2 

*1,  ,  ™ 

3<ri+l  ’  ri-l^  (ri+l  “ 

ri) 

c  = 

4cri+l,  K  i+1,  j+l/2 

ij 

3(ri+2  -  ri>  {r  i+1  "  1 

a  - 

2C  Xi+l/2,  j 

ij  " 

‘  V 

2c  Xi+l/2, itl 

Yij" 

‘  3(  z.+2  -  z .)  (z j+1  - 

TiT 

B  .  = 
ij 

% 

Cffi+l/2, j+l/2  “  Aij  " 

C..  -  a 
ij 

II 

•n 

•H 

Q 

'  Si+l/2,  j+l/2  * 

The  boundary  conditions  are  described  below.  The  procedure  is  to 
solve  Eq,  (56)  for  E,  then  find  F  and  G  using  Eq.  (54).  Finally,  the  rate 
at  which  energy  is  deposited  in  the  zone  i,  j  is  determined  by 

(*  .>i+i,2fj+i/2  =  -(Vl  "  Zj)(Gi,j+l/2  '  Gi+1, j+l/2) 

(58 

+  "('i+l  "  ri)(Fi+l/2,j  "  Fi+l/2,j+l) 

4.3.  BOUNDARY  CONDITIONS 


The  axis  of  the  system,  which  corresponds  to  i  =  0,  is  not  a  geomet 

ncal  boundary  since  rQ  =  0  is  required.  With  reference  to  Eqs.  (56)  and 

(57),  i  =  0  is  hardly  exceptional  since  r  =0  forces  A  .'  =  0,  which  means 

o  oj 

that  j+l/2  k3,8  a  coe^c^ent  °*  0  and  therefore  cannot  be  relevant. 

Similarly,  G  .  =  0,  by  Eq.  (54),  which  is  appropriate  for  i  =  0  in 


Eq.  (58). 
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The  outer  surfaces  can  have  either  blackbody  boundary  condition  or 
a  reflective  boundary  condition.  For  a  vacuum  boundary  condition,  a  black- 
body  boundary  with  6  =  0  is  used. 

The  reflective  *  lundary  condition  is  the  condition  that  F  .  N  =  0, 
where  N  is  the  normal  to  the  bounding  surface.  This  is  equivalent  to 


GI.  j+1/2  =  CI-1,  j  =  0 

on  the  curved  boundary 

Fi+l/2,  0=  “i,  0  =  ° 

on  the  bottom 

(59) 

Fi+  1/2,  J=  7i,  J-l  =  0 

on  the  top 

The  blackbody  boundary  condition  is  analagous  to  that  of  ERADTN. 
(Compare  with  Eqa.  (28)  and  (29).  )  Thus, 


GI.  j+1/2  “  2ri  l3[  2  +  2  EI-l/2,  j+1/2. 


i  -  2  .  e"a(rI  "  rI-l)/2 

P 


3M 


a  = 


1-1/2,  j+1/2 


1/2 


kI-l/2,  j+1/2 
on  the  curved  boundary  r  =  r  ,  z  s  z  S  z 

1+1  j  j+T 

F  -  o/ac  g4  £  \ 

i+  1/2,  o  y  2  2  i+  1/2,  1/2) 


.1  .  -ozi/2 

?=2'e 


31*. 


a  ■■ 


i+1/2,  1/2 


A. 


i+1/2,  1/2 


(60) 


1/2 


(61) 
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on  the  bottom;  and 


Fi+l/2,  J  = 


P 


(■ 


ac$ 


4 


+  2  Ei+  1/2,  J-l/2 


) 


-a{  z 


J+l 


v/2 


/  3Mi+l/2,  J-l/2\ 
V  Xi+  1/2,  J-l/2  / 


(62) 


on  the  top.  Using  these  formulas  in  Eq.  (54)  modifies  Eq.  (57)  at  certain 
points  as  follows; 

on  the  curved  outer  surface. 


B  .  =  c  a  .  + 
I-l.J  I-l.J 


- A  -  a  -  y 

2  i-i,j  i-i;  j  i-i,j 


i  i-i 


acrj  /304 

DI-l,j  =  '8I-l,j  "  2  2 

I  "  1-1 


on  the  bottom, 

a.  =  0 
10 


B.  =  c  (T .  + 

10  10 


£c 
2  z 


-  A. 


1 


10 


-  C.  - 
10 


01. 


io 


D. 

IO 


10 


ac  fiO 
2  z. 


(63) 
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on  the  top, 


v • 


i,  J-l 


B.  _  ,  =  c  (T  +  - 

i,  J-l  i,  J-l  2(  z 


J  ZJ 


-  AT  ,  5  -  C 


""1-l.J  '  "1-l.j  '  °I-l,j 


D. 


i.  J-l  "1  J-l  2(z  -  z_  ) 

J  J-l 


aci 


4-  4.  METHODS  FOR  SOLVING  THE  SYSTEM 


Sets  of  equations  of  the  type  of  Eq.  (56)  occur  widely  in  the  applica¬ 
tion  of  finite  differences  to  problems  of  elliptic  partial  differential  equa¬ 
tions.  In  situations  where  Eddington's  so-called  diffusion  approximation 
is  good,  the  splitting  method  used  in  MOTET  can  be  used  to  advantage. 
However,  when  At  is  large  and  the  state  of  the  radiation  field  at  time  tn+1 
is  essentially  decoupled  from  its  state  at  time  t”,  the  parabolic  character 
of  the  problem  disappears,  and  it  becomes  necessary  to  turn  to  methods 
of  the  sort  used  to  solve  elliptic  problems.  An  iterative  method  due  to 
Oliphant,  which  is  described  briefly  in  Section  4.  5,  is  used  in  TDRAD  to 
solve  the  system  (56). 

For  those  problems  for  which  two  moments  can  be  expected  to  pro¬ 
vide  an  adequate  description  of  the  field  of  radiation,  Oliphant's  method 
appears  to  work  quite  well.  When  \  becomes  large  compared  with  the 
size  of  the  zones,  the  method  requires  an  excessive  number  of  iterations 
to  converge.  Bu.«.  in  these  cases,  either  a  full  transport  approximation  is 
required,  or  e*je  it  is  possible  to  remesh  the  problem  with  larger  zones. 

4.  5.  PROCEDURE  FOR  SOLVING  THE  SYSTEM 


Algebraically,  the  problem  of  solving  the  system  of  equations  (56) 
is  that  of  finding  a  column  vector  e  that  satisfies 


be  =  d 


(64) 
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bk,  k- 1 

=  A..  , 
ij 

i  t  o 

b.  . 

=  B  . 

k,  k 

ij 

bk,  k+  1 

=  c.. , 

it  I 

bk,  k-I 

*  V 

j  t  o 

bk,  k+I 

=  y 

•  •  t 

« % 

it  J 

®k  =  Ei+  1/2,  j+  1/2 


(65) 


k=i+jl+  1 

The  procedure  used  in  TDRAD  is  due  to  Oliphant*  and  is  based  on 
the  observation  that  b  may  be  expressed  as 

b  =  vw+h  (66) 

where  vy  =  0  unless  k  =  I,  I  +  1,  or  i  +  I;  w  s  o  unless  k  =  I,  i  -  1,  or 
I  -  I;  and  h^  =  0  unless  |k  -  i  |  =  I  -  1.  The  product  vw  is  easy  to  invert 
because  the  factors  v  and  w  are  triangular.  It  is  plausible  to  suppose  that 
the  iteration 


(n+1) 

© 


-1  -1 
w  v 


(d  -  h  e(n)) 


(67) 


will  produce  a  sequence  of  approximants  e^  that  converge  to  a  solution  e 
of  Eq.  (64)  as  n  -*  *,  and,  when  b  is  a  matrix  arising  from  a  finite  dif¬ 
ference  operator  derived  from  the  Laplacian  operator,  it  does,  in  fact, 
seem  to  do  so. 

Two  devices,  also  recommended  by  Oliphant,  are  used  to  accelerate 
convergence.  The  first  is  to  add  (K  -  1)  u  to  b  before  performing  the 


Oliphant,  T.  A. ,  "An  Extrapolation  Procedure  for  Solving  Linear 
Systems, 11  Quat.  Appl,  Math.  20,  257  (1962). 
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factorization  (66),  u  being  the  part  of  b  above  the  principal  diagonal.  To 
compensate,  d  is  replaced  by  d  +  (K  -  1)  ue^.  The  second  device  is 
simple  extrapolation.  Thus, 


(n+1/2)  -1  -1  (n)  .  (n). 

e  =  w  v  (d  +  (K  -  1)  ue  -  he  ) 


g(n+  1)  _  ,.«.♦!/*)  +  (,.u)e(n) 


(68) 


The  pair  of  values  K,w  has  to  be  determined  experimentally.  Note  that 
if  K  =  o,  the  method  reduces  to  a  sort  of  Seidel-method-with-extrapolation, 
because  subtracting  u  from  b  leaves  it  lower  triangular  and  so  h  =  o. 

Setting  K  and  u  both  near  1.  0  seems  to  be  close  to  optimal. 

4.  6.  THE  SUBPROGRAM  TDRAD 

The  subprogram  TDRAD  was  designed  to  carry  o/er  essentially  all 
the  features  of  the  SPUTTER  radiation  codes  (e.  g. ,  multifrequency,  opac¬ 
ity  tables,  time-step  controls,  boundary  conditions)  to  the  HECTIC  pro¬ 
gram  with  minimum  disturbance  to  the  latter,  while  executing  the  equations 
given  in  Section  4.  1.  Since  the  radiation  calculation  would  impose  a  con¬ 
siderable  storage  burden,  a  new  COMMON  statement  with  dimensions  was 
worked  out  for  IBM-7044  operation.  Cell  variables  (10  in  number  for 
regular  HECTIC,  with  13  added  for  radiation)  were  limited  to  400  words 
each;  regular  HECTIC  provides  1200.  All  cell  variables  are  assigned 
storage  in  a  statement  COMMON/ ARRAY/.. 

In  addition,  29  unsubscripted  variables  are  assigned  space  in  the 
COMMON  block  named  LINDLY.  The  names  of  these  variables  and  brief 
statements  of  their  significance  are  given  in  Table  IV.  The  first  21  vari¬ 
ables  in  LINDLY  are  the  input  to  TDRAD,  and  the  remaining  8  are  com¬ 
puted  variables.  Table  V  is  a  glossary  of  the  variables  of  greatest  im¬ 
portance  in  TDRAD.  A  list  of  some  variables,  pertinent  to  the  radiation 
calculation  and  occurring  in  TDRAD  and  HECTIC,  for  which  there  exist 
homologous  variables  in  SPUTTER,  is  given  in  Table  VI. 
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Table  IV 

LINDLY  COMMON 


Name  of  Variable 

Meaning  and/or  Function 

SLUG 

Arbitrary  factor  used  in  time  step 
(accuracy)  control  pertaining  to 
energy  change 

RPTAG 

If  zero,  k  Planck  used  as  is;  if  non¬ 
zero,  k  Rosseland  used  instead 

EFRAC 

Constant  used  to  determine  impor¬ 
tance  of  energy-poor  zones  in  time 
step  calculation 

DTBUGR 

Constant  used  to  change  time  step 
as  finally  calculated 

BCLTAG* 

Boundary  condition  indicator  on 
left  or  inner  radial  boundary;  in¬ 
operative  now 

BCRTAG* 

Boundary  condition  indicator  on 
right  or  outer  radial  boundary 

BCATAG* 

Boundary  condition  indicator  on 
top  axial  boundary  ("above") 

BCBTAG" 

Boundary  condition  indicator  on 
bottom  axial  boundary  ("below") 

MERGE  (real) 

Multifrequency  merge  criterion; 
frequency  compared  with  maximum 
temperature 

CMXK 

The  K  used  in  adjusting  the  Oliphant 
iterative  matrix  inversion 

Value  for  First 
Test  Problem 

0.  5 

0.  0 

0.  001 

1.  o 

0.  0 

-1. 

0. 

-1. 

0. 

1.4 


t 


CMXOM 

ERRCRT 

DBGPRT 

DIANTP 


In  all  cases,  negative  =  reflection;  zero  is  vacuum;  positive  is 
blackbody  whose  temperature  is  value  of  indicator. 


The  u  used  in  adjusting  the  Oliphant 
iterative  matrix  inversion 

1.0 

Convergence  error  criterion  on 
matrix  inversion  iteration 

0.001 

Nonzero  provides  debug  print 

1.0 

Logical  tape  unit  on  which  DIANE 
tape  is  to  be  hung  if  one  is  used 

0.0 
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Name  of  Variable 
DGREY 

CAPIN 

ODDC 

MFTAG 

IMPTAG 

ITAG 

ITRMAX 


SGNL 

IHNU 

NHNU 

HNUP 

NT 

DHNU 

THICK 

NY 


Table  IV  (continued) 


Meaning  and/or  Function 

If  nonzero,  DIANE  tape  is  used  for 
a  grey  calculation 

Value  of  absorption  coefficient  as¬ 
sumed  if  no  DIANE  tape  is  read 

Optical  depth  difference  criterion; 
average  optical  depth  not  calculated 
if  zone  depths  are  too  dissimilar 

If  nonzero,  multifrequency  calcu¬ 
lation;  otherwise,  grey  calculation 

If  nonzero,  fully  implicit  calcula¬ 
tion  is  done;  inoperative  at  present 

Indicator  of  whether  or  not  to  iter¬ 
ate  on  time-centered  temperature; 
nonzero  says  "do  iterate" 

Maximum  allowed  number  of  itera¬ 
tions  in  the  matrix  inversion 

(Computed  Variables,  i.  e.  ,  not  input) 

Material  counter  for  multi-DIANE- 
tape  problems;  used  in  KAPPA  and 
DIANA 

Frequency  index 

Total  number  of  frequency  bands 

Frequency  at  upper  end  of  band 

DIANE  tape  unit 

Width  of  frequency  band 

Not  used 

Temperature  iteration  index 


Value  for  First 
Test  Problem 

0,  0 
1.  0 

0.  333 

0 

0 

0 

30 
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Table  V 

PARTIAL  GLOSSARY  OF  FORTRAN  VARIABLES 


FORTRAN  Variable  Name 

Designation  in  Difference 

Equations  Comments 

ALAMH  (K) 

Xi+l/2,  j 

K  =  i  +  j  I  +  2 

ALAI AV  (K) 

Xi,  j+1/2 

DY  (J) 

z.  ,  .  -  z . 

J+l  J 

ROSS  (K) 

1  i+  1/2,  j+1/2 

Rosseland  mean 
opacity,  in  cm'* 

DTAUR 

r  -  r 

i+ 1  i 

Xi+l/2, j+1/2 

DTAUL 

r.  -  r. 
i  l- 1 

Vl/2,  j+1/2 

DTAUA 

z.  ,  .  -  z . 

J+l  J 

Xi+  1/2,  j+1/2 

DTAUB 

z.  -  z.  , 

J  J-l 

Xi+  1/2,  j-1/2 

PUR  (I) 

RUR  (I) 

1  , 
2  2 
ri+  1  "  ri 

4C _ li _ 

3  r  -  r. 

i+I  l- 1  J 

defined  in  the  loop 
DO  150 

PUZ  (J) 

RUZ  (J) 

1 

J+l  J 

2  1 

3  C  z  -  z. 

i+l  J-l 

defined  in  the  loop 
DO  160 

X(I) 

ri+  1 

Note  displacement 
of  index 

Y(J) 

j+l 

Note  displacement 
of  index 
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Table  V  (continued) 


FORTRAN  Variable  Name 

Designation  in  Difference 
Equations 

Comments 

XA(K) 

A.. 

Defined  two  lines 
above  statement 

531 

XC(K) 

c.. 

u 

Defined  at  state¬ 
ment  536 

XALP(K) 

a  . 

u 

Defined  one  line 
below  statement 
540 

XGAM(K) 

Yij 

Defined  at  state¬ 
ment  546 

XD(K) 

-D. . 
ij 

XB(K) 

B.. 

U 

PLANCK  (K) 

ffi+l/2,  j+1/2 

Planck  mean  ^ 

opacity,  in  cm 

B  (K) 

K 

Source;  not  e>  - 
plicitly  referred 
to  in  text 

XD  (K) 

Ei+l/2,  j+1/2 

Radiation  energy, 
redefined  in 
matrix  inversion 

XA  (K) 

Fi+  1/2,  j 

Flux;  redefined 
two  lines  above 
statement  650 

XB  (K) 

Gi,  j+1/2 

Flux;  redefined 
one  line  below 
statement  655 
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Table  VI 

BERLITZ  GUIDE  TO  TDRAD  FOR 
THE  SPUTTER  USER 


Name  of  HECTIC 

or  TDRAD  Variable  Name  of  Sputter  Variable 


MFTAG 

KMAX 

RPTAG 

SOLID  (10) 

EFRAC 

TELM  (37) 

IMPTAG 

HVB 

DTBUGR 

TELM  (25) 

NRM  =  Z  (62) 

NTIMES  =  BOILB 

NR 

NR  AD 

DT  =  Z  (3) 

DTH2 

BCLTAG 

GA 

BCR TAG 

GL 

BCBTAG 

B CAT AG 

MERGE 

CB 

ROSS 

CAPAR 

PLANCK 

CAPAC 

B 

X6 

0DDC 

AC  (ERADTN  only) 

DBGPRT 

SI  2 

DIANTP 

AMASNO(L+17) 

DGREY 

S15 
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4.  7.  OUTLINE  OF  TDRAD 

1.  Set  up  temperature  iteration  index  and  turn  off  divide  check 
light. 

2.  Call  KAPPA  and  thereby  obtain  the  grey  opacities,  expressly 
for  the  time  step  calculation. 

3.  Calculate  time  step  for  each  zone  by  two  criteria,  stability  and 
(energy)  accuracy; 

4.  Find  minimum  time  step  and  set  subcycle  quantities  if 
necessary. 

5.  Test  divide  check  light,  calculate  geometry  factors  (saves  time 
but  costs  storage  to  do  this  at  this  early  part  of  the  code),  and 
find  the  largest  temperature.  The  largest  temperature  is  used 
only  in  deciding  whether  or  not  to  merge  frequency  groups  in  a 
multifrequency  calculation.  Zero  several  zone  quantities. 

6.  If  doing  multifrequency  calculation,  and  if  there  are  frequency 
groups  with  too  large  u  =  hv/6  ,  merge  them  together. 

7.  If  doing  grey  calculation,  evaluate  source  B,  set  extreme  fre¬ 
quency  limits,  and  transfer  to  (9). 

8.  If  doing  a  normal  multifrequency  calculation,  update  frequency 
parameters  and  evaluate  source,  B. 

9.  Set  blackbody  sources  if  appropriate  and  test  divide  t;h  ick  light. 

10.  Form  zone  and  edge  up. 

11.  Form  and  modify  matrix  elements. 

12.  Invert  matrix  iteratively. 

13.  Calculate  radiation  flux  and  internal  energy  change. 

14.  End  frequency  loop. 

15.  Iterate  on  temperature. 

16.  Reset  temperature  if  necessary  and  return. 

4.  8.  REVIEW  OF  THE  CODE  DEVELOPMENT 

In  early  January  1966  the  iterative  version  was  written,  and  test  problems 
were  begun.  A  rather  "thick"  problem  (one  mean  free  path  per  cell)  was 
tried,  and  the  results  appeared  satisfactory  after  a  brief  debug  phase. 

Then  a  run  was  made  to  compare  directly  with  ERADTN,  with  a  reflective 


\ 


■  v*.  W' 


113 


AFWL-TR-66-  108,  Vol  I 


p 


outer  radial  boundary  condition  chosen  to  simulate  a  problem  in  slab 
geometry.  The  interior  of  this  slab  comparison  was  quite  thin,  and  con¬ 
vergence  difficulties  arose.  It  was  found,  after  several  trials,  that  a 
choice  of  parameters  K  =  1.  2,  «  =  1.  0  (see  Section  4.  6)  was  best  for  this 
particular  problem.  Other  problems  to  test  the  effects  of  non-squareness 
of  logical  mesh  (the  test  problem  was  5  x  50)  and  thinness  were  run.  It 
was  found  that  both  factors  contribute  to  slow  convergence.  In  February  1966, 
considerable  effort  was  expended  on  a  different  test  problem,  a  thin  hot 
sphere  radiating  into  a  thinner,  cold  medium.  The  following  initial  con¬ 
ditions  were  used: 

0  =  5.  081  x  10  *  ev 

-2  -4 

p  =  5.  29  x  10  g  with  ambient  density  p.  =  1.  89  x  10 
o  ®  A 

HVB  =  4.  2  x  1016  erg 

HCB  =  1.  3  x  1010  erg 
CV  =  2.6  x  1010  erg 

HCP  =  4.  x  109  erg 

10  9 

I  =  5.  5  x  10  erg,  of  which  only  4.  0  x  10  erg  is  allowed 

to  gc  into  vapor 

y  =  1.5 


I 


A  perfect  gas  equation  of  state  was  used  to  describe  the  vapor  ex¬ 
pansion.  The  radiation  boundary  conditions  used  are  shown  in  Fig.  11. 

A  study  was  made  of  the  convergence  of  the  radiation  equation. 
Various  values  of  K  and  w  which  are  used  to  adjust  the  iterative  matrix 
inversion  were  tried.  As  a  result  of  these  tests,  the  following  observa¬ 
tions  were  made: 


1.  If  E  .  goes  negative  for  any  reason,  even  if  it  is  sub- 

It  1/2|  Jt  1/2 

sequently  set  to  zero,  the  convergence  criterion  is  very  hard  to 
meet. 


Figure  11.  Configuration  of  Test  Problem 

2.  For  ^2  j+l/2  a*way8  greater  than  zero,  the  following  seems 
to  be  true: 

4 

a.  Initial  E  =  137  6  seems  to  converge  over  the  entire  mesh 
faster  than  E  =  0. 

b.  lAEl.  for  cells  with  max  E  is  generally  only  slightly  larger 
than  |AE.!  for  cell  with  min  E. 

i 

In  April,  a  subroutine  for  completely  factoring  b  was  written.  Thus, 


b  =  vw 

where  v_  =  o  unless  j  S  i  S  j  +  I  and  w „  =  o  unless  j  -  I  S  i  S  j,  Although 
this  closed  method  is  inferior  to  the  iterative  method  in  all  respects  — 
space  and  time  consumed  and  accuracy  —  it  is  a  useful  diagnostic  tool 
for  small  test  problems  because  it  eliminates  the  question  of  convergence. 
The  technique  was  accommodated  by  writing  all  22  cell  arrays  on  a  tape 
and  using  the  corresponding  storage  to  invert  the  matrix,  limiting  I  (say, 
the  number  of  radial  columns  of  cells  in  a  HECTIC  mesh)  to  22.  This 

version  was  written  and  executed,  with  reasonably  satisfactory  results. 

‘\ 

The  thin  sphere,  described  above,  was  tried,  and  the  resulting  radiation 
energy  distribution  looked  about  right.  However,  the  radiant  flux  gradient, 
which  determines  actual  energy  transfer,  was  quite  small  and  noisy.  The 
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question  of  limitations  on  numerical  accuracy,  and  the  related  question 
of  the  range  of  applicability  of  tI*o  diffusion  method  to  optically  thin  media, 
are  both  under  investigation. 
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4.  9.  APPENDIX:  LISTING  OF  TDRAD 


SIBFTC  TDHAD  LIST .DECK. REF 

SUBROUTINE.  T&RAU 
COMP1LLU  JANUARY  27.  196b  WBL 
C 

C  DIMENSION 

C 


DIMENSION 

IUt  400)#  Vt  400)#  AMXt  400)#  AIXt  400)#  Pt  400)# 

2THETA (  400)#  RHO(  400)#  FIOUTt  400)#  CAP!  400)#  KFITt  400)# 

3  I  Wit  50) .  W2  ( 50)  •  W3(  50 ) »  TABLMt  50) # 

4UX (52) #  X(53)»  XX (54) »  DY(lOO)#  Y(100)#  YY(lOl)# 

bTAB(15) •  AMK(lb) #  PK(15)»  QK(15)»  2(150)#  IZ(150)» 

6TAU ( 52) #  PL (200) *  PK(2D0)»  UL(200>»  UR(200>. 

7FLEFT(100) .YAMCtlOO) .SlGC(lOO)  »GAMC(100> » 

BG(50) # SOLID (400) # TEMPI  12) 


COMMON 

l 

•  XX 

•  UR 

#PR 

•THETA 

•  YY 

COMMON 

AID 

•  A1X 

•  AM 

•  AMO 

•  AMX 

•  AREA 

COMMON 

BIG 

•BOUNCE 

•  DDXN 

•  DDVK 

•  DVK 

•  OX 

COMMON 

OY 

•  E 

#FD 

•  FS 

•  FX 

•  OUT 

COMMON 

P 

•PABOVE 

•  PBLO 

•PIOTS 

•PPABOV 

•  PRR 

COMMON 

PUL 

•  ODT 

•  RC 

•  REZ 

•  RHO 

•  RL 

COMMON 

RR  # SIG 

•QOOOFLtSWITCH 

#TABLM#TAU 

COMMON 

TAUUTS 

•TAUOTX 

•  U 

•  UK 

•  URR 

•  UT 

COMMON 

UU 

•  UUU 

#UTEF 

•UVMAX 

•  V 

•VABOVE 

COMMON 

VBLO 

•  VEL 

»VK 

•  VT 

» VTEF 

•  VV 

COMMON 

VVAUOV 

• VVBLO 

•  W2 

•  W3 

•  WPS 

•  ws 

COMMON 

WSA 

•  WSB 

•  WSC 

•  XL 

•  XLF 

•  XN 

COMMON 

XR 

#YL 

•  YLW 

•  YN 

•  YU 

•  ZMAX 

COMMON 

I 

•  II 

•  IN 

•  IR 

•  iws 

•  I  WSA 

COMMON 

IWSB 

•  IWSC 

#IW1 

•  J 

JJN 

•  JP 

COMMON 

JR 

•  K 

•  KN 

•  KP 

■Ckr 

•  KRM 

COMMON 

L 

•  M 

#MA 

•  MB 

Tc 

•  MD 

COMMON 

ME 

•  MZ 

#N 

•»NK 

•NKMAX 

•  NK1 

COMMON 

NO 

»NR 

•  G 

•SOLID 

.'TEMP 

COMMON 

FI  OUT 

•  CAP 

#KFIT 

E  Q  U 

1  V 

A  L 

E  .  N 

Cl  E 

OEGU I VALENCE 

(Z.1Z. 

PROB). 

1  ( Z ( 4  )  (PRINTS)  • 

(2(5)  . 

PRINTL). 

2(Z(6) .PIDY)  • 

(2(9). 

TMZ) . 

3(2(12) •GAMX) • 

(Z ( 13) 

»ETH) » 

4  ( Z  ( 1 6 ) • TMOZ ) • 

<  2 1 17) 

.  TMXZ )  . 

5(Z(20) (TYMAX) • 

(Z(21> 

•  AMOM  >  • 

6(Z(24) >DMIN) • 

(2(25) 

»FEF). 

7(2(28) #NPR) • 

(Z(29) 

.  NPRI )  • 

8(2(32) »NHC) • 

(Z(33) 

.  IMAX). 

9(2(36) • JMAXA) t 

(2(37) 

.KMAX) • 

OEOUI VALENCE 

( Z ( 40 ) 

.NO) . 

1(Z(43) (NOD) • 

(Z (44) 

.NOPR) » 

2(Z(47> ill)# 

(Z(4B) 

.12)  . 

3(2(51). Nl). 

(2(52) 

»N2)  • 

4(Z(55) »N5) • 

(Z (56) 

.  N6)  . 

5 (Z (59) . N9) t 

(2(60) 

.  N10 )  . 

6 ( Z ( 63 ) •TRAD) • 

(Z(64) 

.  XNRG)  • 

7(Z(b7) iRAD-R) t 

(Z(68) 

•RADET). 

B!Z(71 ) f REZFCT) • 

(2(72) 

.RSTOP) . 

9(2(75). TOZONE). 

(Z(76) 

•  ECK) . 

OEOUI VALENCE 

(2(79) 

.  X2) « 

1 (2(82) .CALLN) . 

(2(83) 

.vise)* 

2 ( Z ( 86 ) . WSGD) • 

(Z(87) 

.  WSGX ) . 

3(2(90). SI). 

(2(91) 

.  S2)  . 

4(Z(94) »S5) • 

(2(95) 

.  S6) . 

5(Z(9B) #S9) . 

( Z ( 99 ) 

.510) 

(2(2). CYCLE),  j 

(2(3). 

DT)  • 

(2(6) .DUMPT7) » 

( Z 1 7 ) »CSTOP) . 

(2(10). GAM). 

(Z(ll) 

•GAMD) • 

(2( 14) »FFA) » 

( Z  ( 1 5 ) 

.FFB) . 

(Z( 18) tXMAX) • 

(Z ( 19) 

.TXMAX). 

(2(22). AMXM). 

(2(23) 

.ONN) • 

(2(26) #DTNA) . 

( Z ( 27 ) 

•  CVIS). 

(2(30). NC). 

( Z  ( 31 ) 

.NPC). 

(Z (34) . IMAXA) . 

( Z ( 35 ) 

• JMAX) . 

(Z(38) iKMAXA) . 

( Z ( 39 • 

•NMAX) 

<  Z ( 4 1 ) #KOT) . 

(2(42) 

. IXMAX). 

(2(45) .NIMAX)  . 

(Z(46) 

•NJMAX) . 

(2(49). 13). 

(2(50) 

•  14). 

<Z (53) »N3) . 

(Z(54) 

»N4)  • 

(Z(57) »N7) • 

(2(58) 

.  N8)  . 

(2(61) .Nil)  • 

(Z(62) 

. NRM) . 

<Z(65>.SN># 

(2(66) 

. DXN) . 

(2(69) .RADEB) . 

(Z(70> 

. DTRAO) . 

(2(73). SHELL). 

(Z(74) 

.  RBOUND) • 

( Z 1 77 ) . SBOUND) . 

(2(78) 

.XI) 

(2(80). Yl). 

(Z(8D 

.  Y2) . 

(2(84). T). 

(2(85) 

.GMAX). 

(Z(8B> .GMADR) • 

(Z(89) 

.  GMAXR) • 

(2(92). S3). 

(2(93) 

•  S4)  * 

(2(96). S7). 

(Z( 97) 

.SB). 
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0EQU1 VAl  ENCE 
1(4(103) ,  5V5) , 
2(4(107), SUMFL) , 
3(4(Jll),tZERO>, 
3 (4 (lib) » COL) , 
4(4(119) « AHN) , 
5(4(123). UTC), 

X (Z( 127) ,C0UT) , 
6(4(131 )  ,J1) , 
7(Z( 13b) .  J5) , 

0 EQUIVALENCE 
1 (4(143) ,SCRE) 


(Z(100) ,HVB) , 

( Z ( 104 ) .ATOM) » 
(2(106) .BETA)  « 

( Z ( 1 1 2 ) ,PM) , 

(Z( 1 16) »SCR ) , 
(Z(120) ,DTH) , 
(Z(124) * IC) , 

' Z ( 128 ) r HCP ) , 
(Z(132) ,  J2) , 
(Z(136) » J6) 
(Z(140) »VAPE) ,  ' 


(2(101 ) ,HCB) , 
(2(105) »CV) , 
(Z(109),ALCO). 
(2(113) .CAPS) » 
(4(117), ISR), 
(2(121). IH). 
(2(125). JC). 
(2(129). HH). 
(2(133). J3>. 

(2(141). RADE). 


(2(102). CB). 
(2(106). 6V). 
(Z(llfl).ANN). 
(2(114). HNU). 
(Z(llfl) . SCOR) . 
(2(122). JH). 
(Z(126)»RFT)» 
(2(130). CO). 
(2(134). J4). 

(2(142). CNDE). 


OEQUIVALENCE 
1 (PR(100) .SIUC) . 
2  (UK  (16) .  AMK)  . 


(XX(2).X(1))» 
(PK.PL.SAMC) . 
(UK (31 ) .PK ) . 


(UR.UL.FLEFT) . 
(DKE. THETA). 
(UR (46) .OK). 


(UR(IOO).YAHC). 
(UR. TAR). 
(YY(2).Y(1)) 


COMMON  /LINDLY/  SGNLc  IHNU.  NHNU.  HNUP»  N.»  DHNU.  THICK.  NY. 

2  MFTAG.  SLUG.  RPTAG.  EFRAC.  IMPTAG.  DTBUGR.  BCLTAG.  BCRTAG.  ITAG. 

3  BCOTAG.  BCATAG.  MERGE.  CMXK.  CMXOM.  ERRCRT.  ITRMAX.  ORGPRT. 

4  DIANTP.  OGKEY.  CAPIN.  ODDC 

COMMON  /ARRAY/  ROSS(  400).  PLANCK (  400).  ER (  400).  XCV(  400). 

2  XA(  400).  XB(  400).  XC(  400).  XALP(  400).  XGAM(  400).  B(  400). 

3  XO:  400).  ALAMH(  400).  ALAMVt  400).  XG(  400).  ERADI  400). 

4  OLOTH(  400) 

C  0  M  M  0  ;  N 

DIMENSION  PUR ( 50 ) »  PUZ(IOO).  RUR(SO).  RUZ(IOO) »  BETAB(50) . 

2  bETAA (50) .  BETAR(IOO) 

REAL  MERGE 

4  FORMAT  (7H1CYCLE  F6.0.  7H  TIME  1PE13.6.  5H  Dtl 

5  FORMAT  (  4X1HK.  11X2HXA.  11X2HXB1 

2.  9X4HXALP.  9X4HXGAM.  12X1HB.  9X4HR0SS.  7X6HPLANCK/) 

6  FORMAT  (15.  1P9E13.6)  . 

7  FORMAT  (1H13X1HK.  7X6HV  FLUX.  7X6HH  FLUX.  6X7H0ELTA  E) 

0  FORMAT  (/10H  ITERATIONS.  22H  MAX.  RELATIVE  ERROR  1PE9.3. 

2  7H  ZONE  14,  14H  ZONE  ENERGY  1PE9.3)  I 

9  FORMAT  (3H  XG)  1 

10  FORMAT  (5H  ERAD) 

11  FORMAT  (1P10E12.5) 

NYUN  LINOLEY  COMMON)  IS  TEMPERATURE  ITERATION  INDEX  USED  IN  KAPPA. 
IF  (MFTAG  .EQ.  0)  DHNU  s  1. 


1PE13.6/) 

11X2HXC.  11X2HXD 


NVE2  =  1 
NY  =  NVE4 

IF  (ITAG  .EG.  0)  NVEZ  =  2 

VE2  s  NVEZ 

CALL  DVCHK  (KOMY) 


DRAD  101 
DRAD  104 

DRAD  103 


FORM  MONOFREQUENCY  QUANTITIES  AND  FIND  MIN  TIME  STEP 
MSB  =  0.0 

DO  1076  K  =  2,  KM AX 
1Q76  MSB  s  MSB  4  AIX(K)  *  AMX(K) 

DTR1S1.E10 
DTK2=l.E10 
IHNU  =  0 
CALL  KAPPA 

C  MUST  FORM  LOG  OF  TEMPERATURE  AND  DENSITY  IN  KAPPA 
1060  DO  1230  1=1,  IMAX 

K  =  I  ♦  1 

.  DO  1229  J  =  1,  JMAX 

CALL  UNCLE  IF  EITHER  KAPPA  IS  ZERO  OR  NEGATIVE 

IF  ( AMIN1 ( PLANCK (K ) .  ROSS(K))  ,GT.  0.0)  GO  TO  1120 

51=13.1090 

CALL  UNCLE 


DRAD  106 
DRAD  107 
DRAD  106 
DRAD  109 


DRAD  112 
DRAD  113 
DRAD  119 


DRAD  122 

DRAD  124 
DRAD  125 
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1120 


112b 

1160 


C 


116b 

1170 

C 

C 


1172 


TEMP ( 1 ) -SORT ( PLANCK ( K )  *  R0SS(K)> 
TEMP (3)  =  PLANCK (K) 

IF  (RPTAG  .LO.  0.0)  60  TO  1125 
TEMP ( 1 )  s  ROSS(K) 

TtMP(3)  =  HOSS(K) 

IF (0.001  -  THETA (K) )  1160.1230.1230 
UELTAU  S  O.b  *  TEMPI  1 )  *  RHO(K) 


TEMPI 1)  s  1.E10 
TEMP (2)  =  1.E10 
IF  (ER(K).Eo.O.)  60  TO  1170 
WSbb  =  AIX(K)  *  AMX(K) 

IF  (EFKAC  .EO.  0.0)  60  TO  1170 

IF  (nSDB  -  EFRAC  *  MSB)  1170.  1165.  1165 
ACCURACY  CRITERION  —  DONE  UNCONDITIONALLY 
TEMPI 1 )  s  SLUG  *  AMX(K)  /  ABS(ERIK) )  *  AIX(K) 

IF  IMF TAG  «EU.  0  .AND.  IMPTAG  .NE.  0  )  CONTINUE 

60  TO  1172  REPLACED  UY  CONTINUE  UNTIL  FULLY  IMPLICIT  CODING  IS  PUT  IN 
STABILITY  CRITERION  —  BYPASSEO  IN  FULLY  IMPLICIT  CASE  DRAG  140 

UENOM  =  4.1132E12  *  TEMP(3)  *  THETA<K)**4  /  AIX(K) 

TEMP12)  s  10. b  +  l.b  «  (DELTAU  *  AMIN1 (OX( I ) .  DY(J)))**2)  /  DENOM 
TEMP12)  =  AMIN1 ( TEMPI  1).  TEMP(2))  nRAD  1U9 

TEMP(2)=TEMP(2) *UTBU6R 


DRAG  131 
DRAO  132 


DRAG  137 


C« 

C 

C 

C 

C* 


find  minimum  time  step 


1190 

1200 


1210 

1220 

1229 

1230 

C 

C 

C 

C 

C 

C 

5 

CAVEAT 


C* 

C 

C 

C 

C* 


IF  ( TEMP ( 2 ) )  1230.1230.1190 

IF  (TEMP(2)-UTR1)  1200.1210.1210 

DTK2S0TH1 

KMN2=KMN1 

DTR1STEMP12) 

KMN1=K 
60  TO  1230 

IF  (TEMP(2)-OTR2)  1220.1230.1230 
0TR2STEMPI2) 

KMN2=K 
K  =  K  ♦  IMAX 
CONTINUE 
DTRMINsOTRl 

1 

PRINT  MINIMUM  TIME  STEPS  BETWEEN  EDITS 
DELETED  UNTIL  WE  KNOW  THE  OIL  PRINT  ROUTINE 

DETERMINE  IF  RADIATION  OR  HYDRO  WILL  SUBCYCLE 
NO  HYDRO  SUBCYCLE  IN  THIS  VERSION 
FOR  INITIAL  START.  OT  ANO  TRAD  NEED  TO  BE  PROVIDED  AS  INPUT. 

OIL  PROOAbLY  DOES  THINGS  DIFFERENTLY. 

IF  (OTRMJN  -  TRAD)  12B0*  125.  125 

*********  *********M*****t4***i4Mi#ii*ii4iiiiiii*ii4i*4(,ii** 


reduce  time  step 


1280  NR  =  OT  /  DTRMIN  +1.0 
TRAD  =  OT  /  FLOAT (NR) 

IF  (NR  .LE.  NRM  )  60  TO  12b 

1290  S1S13.1290 
CALL  UNCLE 
125  THTAMX=.02S 

CALL  DVCHK(KOMY) 

GO  TO  (127.  130).  KOMY 
127  SI  s  13.0127 
CALL  UNCLE 

C  CALCULATE  GEOMETRY  FACTORS  ANO  FINO  HIGHEST  TEMPERATURE 


♦GRAD  144 
•GRAB  145 
•GRAD  146 
•DRAG  147 
•GRAB  148 
BRAG  149 
BRAG  150 
BRAG  151 

GRAD  153 

GRAB  155 
BRAG  156 
GRAD  157 


DRAO  159 
GRAD  160 
DRAO  162 
GRAD  163 

DRAO  172 
DRAO  173 
DRAO  174 


'*DRAO  1A0 
•GRAD  181 
•GRAD  182 
•GRAD  183 
•GRAD  1A4 


GRAD  188 
GRAD  189 
DRAO  195 


BRAG  197 
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130  uo  lbo  1=1*  i max 

PURI  I  )  =  P10Y  /  TAUII  } 

ISO  RURIld)  r  4.0tI0  *  XII)  /  (Xdd)  -  XII-I)) 

00  IbU  d  =  1*  JMAX 
FUZIJ  »  =  1.  /  oYld  ) 

160  RUZ(JM)  =  2.0tl0  /  (Y( J+l)  -  Y(j-l)  ) 

00  180  K  =  2*  KMAX 

IF  (THE TAIK)  .LE.  THTAMX)  GO  TO  180 

THTAMX=THETA(K) 

180  CONTINUE 

r  =  AHAXKTHTAMX.  BCLtAG,  HCRTAG*  UCBTAG*  UCATAG) 

200  DO  SIoVKP=I2I  MAX^0^  TEMPERATURE  DERATION 
XA(K)  =  0. 

XQ(K)  =  0. 

XC(K)  =  0. 

XALP(K)  =  0. 

ERIK)  =  0.0 
210  XGAMIK)  =  0. 

C 

C 

^  begin  frequency  loop 

c 
c 


ORAD  211 


SET  UP  MAX  fPEQ  BOUNDARY 


c 

c 

c 


c 

c 

c 


HNUP=1.0L6 
HNUP4-I . 0E24 

IF  (MFTAG  .EQ.  0)  'sO  TO  280 
220  1HNU  =  IHNU  ♦  l 
CALL  KAPPA 
HNU4=HNU4*4 
OHNU  =  HNUP  -  HNU 

MERGE  GROUPS  WITH  HNU  MORE  THAN  IMERGE)  TIMES  LARGEST  THETA 

IF  (MERGE  .GT,  0.0)  GO  TO  225 
SI  =  13.0225 
CALL  UNCLE 

225  IF  (THTAMX  -  HNU  /  MERGE)  240*  230*  230 
230  IF  (IHNU  -  1)  235,  370*  260 

235  SI  =  13.0235 
CALL  UNCLE 

REJECT  TAPE  IF  MORE  THAN  HALF  OF  GROUPS  MERGE 

240  IF  ( I HNU ♦ I HNU-NHNU )  260*250*250 
250  IF  ( AMOU( MERGE, 1.)  .EQ.  0.5)  GO  TO  260 
Sl=13.0250 
CALL  UNCLE 

260  00  270  K  =  2*  KMAX 
T4  =  THETA(K)**4 
UET/-HNU/THETAIK) 

BETAP=HNUP/THETA (K ) 

OFBSPLNKUT ( BE  T A  *  bETAP ) 

IF  (DFB.EQ.O. )  GO  TO  270 
TEMPI 1)  =  OFU  *  T4 
EMUI =EXP ( -BE  T A ) 

EMB2=EXP(-BETAP) 

TEMP(2)=OFB+0. 0384974  /  T4  *(HNU4/(1.0-EMBI) 
l*EMBl“HNUP4/( 1 .0-EMB2) *EMB2) 


ORAD  242 
DR AD  243 
♦♦♦DRAD  244 
♦  DRAD  245 
♦ORAD  246 
♦DRAD  247 
♦DRAD  248 
DRAD  249 
DRAD  250 
DRAD  251 


DRAD  258 
DRAD  260 
DRAD  261 

DRAD  263 

DRAD  265 
DRAD  266 

DRAD  268 
DRAD  269 
DRAD  270 
DRAD  271 
nRAD  272 
DRAD  273 
DRAD  274 

ORAD  276 
OHAD  277 


ORAD  281 
DRAD  282 

DRAD  284 
ORAD  2R« 

DRAD  287 
DRAD  288 
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C  FORM  NUMERATORS  AND  DENOMINATORS  OF  MERGED  KAPPAS 

C 

XA(K)=XA(K)+TLMP<1) 

Xb(K)=XU(K)+TLMP<2) 

XC  ( K )  =  XC  (K )  ♦  PLANCK  (K )  ♦  TCMPU) 

XALP(K)  =  XALP(K)  ♦  TEMP ( 2 )  /  ROSS(K) 

270  CONTINUE 
HNUPsHNU 
HNUP4-iiNU4 

IF  (THTAMX-  HNU/  MERGE)  220*310*310 

FORM  CRGtU  KAPPAS 

310  DO  JbO  K  =  2*  KMAX 

IF  (XA(K)I  320*300*330 
320  51=13.0320 
CALL  UNCLE 

330  ROSS(K)  -  Xb(K)  /  XALP(K) 

PLANCK (K)  =  XC  <  K )  /  XA(K) 

350  Continue 
HNUPSi .0h6 
HNUP4=1.0E24 
BHNU  =  HNUP  -  HI'JU 
GO  TO  400 

MONOKREQUtNCr  CALCULATION 

280  NhNU=l 

I HNU  =1 

DO  290  K  =  2*  KMAX 
290  b(K)  =  THETa ( K )  *  +  4 
HNU  =  .001 
GO  TO  400 

TYPICAL  GROUP  CALCULATION  OF  SOURCES 

360  1HNU  =  IHNU  +1 
CALL  KAPPA 
UHNUSHNUP-HNU 
HNU4=HNU**4 

370  DO  392  K  =  2*  KMAX 

DFB  =  PLNKUT (HNU  /  THETA(K) *  HNUP  /  TllETA(K) ) 

392  H(K)  =  UFb  *  THETA(K) **4 

StT  BLACKbOOY  CONDITIONS 

INNER  CYLINDRICAL  RADIUS  NOT  ASSUMED  ZERO 
480  bBL  =  0. 

IF  (UCLTAG  .LE.  0.0)  GO  TO  490 
DFU  =  PLNKUT (HNU  /  BCLTAG*  HNUP  t  BCLTAG) 

BBL  =  BCLTAG**4  *  DFb 
490  BBR  =  0. 

IF  (BCRTAG  .LE.  0.0)  GO  TO  500 
DFb  =  PLNKUT (HNU  /  UCRTAG*  HNUP  /  BCRTAG) 

BBR  =  BCRTAG**4  +  DFb 
500  bBb  =  0.0 

IF  (BCBTAG  .LE.  0.0)  GO  TO  510 
DFb  =  PLNKUT (HNU  /  BCBTAG*  HNUP  /  BCBTAG) 

BBB  s  8CUTAG**4  *  DFB 
510  BBA  =  0.0 

IF  (BCATAG  .LE.  0.0)  GO  TO  520 
DFB  =  PLNKUT (HNU  /  BCATAG *  HNUP  /  BCATAG) 

BBA  =  BCATAG**4  ♦  DFB 
520  CALL  DVCHK(KDMY) 

GO  TO  (522*  521)*  KUMY 


DRAD  289 
DR AO  290 


DRAD  295 
DRAD  296 
OR AD  298 

DRAD  300 
DRAD  301 
DRAD  302 


DRAD  305 
DRAD  306 


DRAD  309 


DRAD  312 

DRAD  315 
DRAD  316 
DRAD  317 
DRAD  318 


DRAD  326 
DRAD  327 
DRAD  328 
DRAD  329 
DRAD  330 


DRAD  332 
DRAD  333 


DRAD  363 
DRAD  365 
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FORM  ROSSELANC  ANL)  PLANCK  OPTICAL  DEPTHS 


522  SI  =  13.0522 
CALL  UNCLE 

DRAO  381 
DR AO  382 
DKAD  3A3 

DOUBLE  ON  STORAGE  FOR  ADSORPTION  COEFFICIENTS*  MU*  AND  LAMBDA 
521  UO  530  1=1*  IMAX 

K  =  I  +  1 

M  =  K  -  IMAX 

DO  S30  J  =  1*  JMAX 

FACTOR  si. 

IF  (RPTAG  *NE*  0.0)  FACTOR  =  ROSS(K)  /  PLANCK (K) 

ROSS(K)  =  AMAX1 ( ROSS<K )  *  RHO(K).  l.E-20) 

PLANCK (K)  =  AMAX1 (PLANCK(K)  *  HHO(K)  *  FACTOR.  l.E-20) 

C  FORM  LAMDDA*  MEAN  FREE  PATH  AT  CELL  EDGES 
IF  (I  .LU.  1)  GO  TO  'J«*b 

C  MAY  BE  ABLE  TO  SAVE  STORAGE  BY  EGUIVALENC ING  ALAMH  WITH  ROSS. 

CAVEAT.  LOGIC  WOULD  BE  MORE  COMPLEX  AND  ONE  l-D  ARRAY  WOULD  RE  NEEDED. 

OTAUR  =  ROSS(K)  *  DX(I) 

DTAUL  =  HOSS(K-l)  *  DX(I-l) 

IF  (ABSIC’AUK  -  UTAUL)  /  (DTAUR  ♦  OTAUL)  .LE.  ODDC)  GO  TO  523 
ALAMV(K)  =  AMAXKl.  /  ROSS(K)*  1.  /  ROSS(K-l)) 

GO  TO  525 

523  ALAMV(K)  =  (UX<I)  ♦  UX(I-l))  /  (DTAUR  ♦  DTAUL) 

525  IF  (J  .EU.  1)  GO  TO  529 

UTAUA  =  HOSS(K)  *  DY(J) 

DTAUB  =  ROSS(M)  *  DY(d-l) 

IF  (ABS(UTAUA  -  UTAUB)  /  (DTAUA  ♦  DTAUB)  .LE. 

ALAMH(K)  =  AMAXKl.  /  ROSS(K).  1.  /  ,  ROSS(M)  : 

GO  TO  529 

527  ALAMH(K)  =  (UY(J)  +  OY(d-U)  /  (DTAUA  +  DTAUB) 

529  M  =  M  ♦  IMAX 
K  =  K  +  IMAX 

cSSmSmSS . ************ . ORAO  412 

tESIN  NONEQUILIBRIUM  DIFFUSION  TREATMENT 


ObDC) 

1 


GO  TO  527 


DKAD  413 
DRAD  414 


FORM  MATRIX  ELEMENTS  XA.  XB.  XC.  XD.  XALP*  XGAM 
THIS  SECTION  ALSO  EXECUTES  EQS,  45  AND  46  OF  OLIPHANT 
BOUNDARY  CONDITION  MODIFIES  XB  ANO  XD. 

THIS  CODING  ASSUMES  DX(I)  =  X(I+1)  -  XCI).  SAME  FOR  Y. 
DO  560  1=1*  IMAX 

K  =  I  ♦  J. 

N  =  K  +  IMAX 
DO  560  J  =  1*  JMAX 
XU(K)  =  0. 

XD ( K )  =  0. 

IF  (I  .EG.  1)  GO  TO  531 

XA(K)  =  -PUR(I)  *  RUR(I)  *  ALAMV(K) 

GO  TO  535 
531  XA(K)  =  0.0 

C  INNER  CYLINDRICAL  RADIUS  ASSUMED  ZERO 

535  IF  (I  .EG.  IMAX)  GO  TO  538 

536  XC (K)  =  -PUR(I)  *  RUR(IM)  *  ALAMV (K+l) 

GO  TO  540 

538  XC (K)  =  0.0 

IF  (BCRTAG  .LT.  0.0)  GO  TO  54^ 

BETAR(J)  =  1.0  /  (2.  -  EXP(-DXII)  *  SGRT(0.75  *  ROSS(K) 
2  *  PLANCK (K)  )  >)  .  „ 

XB(K)  s  XB ( K )  +  PUR(I)  *  3.E10  *  X(I  )  *  BETAR(J) 

XD ( K )  s  XD(K)  -  4.104E12  *  PUR(I)  *  X(l*l>  *  BBR  ■ 

540  IF  (J  .EG.  1)  GO  TO  543 

XALP(K)  =  -PUZ(d)  *  RUZ(J)  *  ALAMH <K) 

GO  TO  545 
543  XALP(K)  =  0.0 
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IF  (UCUTAG  .LT.  O.U)  GO  TO  545 

UETAb(I)  =  1.0  /  (2.  -  EXP(-DY(1)  *  SORT(0.75  ROSS(K) 

2  *  PLANCK (K)  )  )  ) 

XU  ( K )  =  XU  (K )  ♦  PU2U)  *  1.SE10  *  BETALMI) 

XU ( K )  =  XO(K)  -  PUZ(l)  *  2.0S2E12  *  UIW 

545  IF  (J  ,LU.  JMAX )  GO  TO  S40 
b46  XGAM(K)  =  -PUZ(J>  *  KU2(J+1)  *  ALAMH(N) 

GO  TO  549 
b4fl  XGAM(K)  m  O.U 

IF  (UCATAG  .LT.  0.0)  GO  TO  549 

HLTAA(I)  =  1.0  /  (2.  -  EXPI-DY(J)  *  SQRTI0.75  ♦.  ROSS(K) 

2  *  PLANCK (K)))) 

XU (K )  =  X8(K)  ♦  PUZ(J)  ♦  l.bElQ  *  BE  TAA (  I ) 

XD( K )  =  XD(K)  -  PUZ(J)  ♦  2.052E12  *  UHA 

549  XB(K)  =  XB(K)  ♦  3.E1U*PLANCK(K)  -  XA(K)  -  XC(K>  -  XALP(K)  -XGAM(K) 
XD(K)  =  XO(K)  -  4.104E12  *  PLANCK(K)  *  IKK) 
C*****************  *  ***** 

C  INITIAL  tKAU(K)=U.  .FOR  LOW  FLUX  AND  U(K)*137.  FOR*  HIGH  FLUX 
EKAU(K)  =  U ( K  >  *  137. 

C****************  ******** 

IF  (IMPTAG  <LO.  0  .OH.  MFTAG  .NE.  0)  GO  TO  559 
C  FULLY  IMPLICIT  AUJUbTMENT  OF  XB  AND  XD 

C  VUOT *  DE(M)/UT*  0*  PHIN»  AND  SO  FORTH  NOT  YET  AVAILABLE. 

SI  =  13.U559 
CALL  UNCLE 
XU (K )  =  XB(K) 

XD ( K )  =  XD(K) 

559  K  =  K  +  IMAX 

N  =  N  +  IMAX 

560  CONTINUE 

C  URST  PASS  —  P.  16»  EQ5.  47-49  OF  OLIPHANT 
DO  570  K  =  2*  KMAX 
M  =  K  -  IMAX 

Xb(K)  =  XB IX)  -  XALP(K)  *  XGAM(M)  -  XA(K)  *  XClKf-1) 

XGAM(K)  =  XGAM(K)  *  CMXK  /  XU(K)  1 

XC ( K )  =  XC(K)  ♦  CMXK  /  XU(K) 

570  CONTINUt  1 

CALL  DVCHK(KUMY) 

GO  TO  (572*  573) ,  KUMY 

572  SI  s  13.0572 
CALL  UNCLE 

573  IF( AMOO( CYCLE *PR INTL) .  NE.  0.)  GO  TO  5B0 
WRITE(6*4)  CYCLE  *  T  *  DT 

WRITE  (0*5) 

DO  575  K  =  2*  KMAX 

575  WRITE  (6*6)  K*  XA(K)*  XU(K)*  XC(K)*  XD(K)*  XALP(K)*  XGAM(K)*  R (K  >  * 
2  ROSS ( K ) *  PLANCK (K) 

500  ITER  =  1 

C  SECONO  PASS  —  EOS.  50*  51  OF  OLIPHANT 
590  DO  600  K  =  2*  KMAX 
M  =  K  -  IMAX 
N  s  K  ♦  IMAX 

XH  =  -XD (K )  ♦  XALP(K)  *  XC <M)  *  ERADIM+l )  ♦  XA(K)  *  XGAM(K-l)  * 

2  ERAD(N-l)  ♦  (CMXK  -  1.)  *  XU(K)  /  CMXK  *  (XGAM(K)  *  ERAD(N)  ♦ 

3  XC  ( K )  *  ERAU(KU)  ) 

XG(K)  S  (XH  -  XALP(K)  *  XG(M)  -  XA(K)  •  XG(K-l))  /  XB(K) 

600  CONTINUE 

C  BACKWARD  PASS  —  EO.  52  OF  OLIPHANT 
ERROR  =  0. 

EMIN  =  1.E20 
DO  620  L  =  2*  KMAX 
K  =  KMAXA  ♦  1  -  L 
N  s  K  ♦  IMAX 

ENEW  =  CMXOM  *  <XG(K)  -  XGAM(K)  •  ERAD(N)  -  XC(K)  *  ERAD(K+1)>  + 

2  (1.  -  CMXOM)  *  ERAU(K) 
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MAY  at  TOO  SEVERE  FOR  CELLS  WITH  VERY  LITTLE  OF  THE  TOTAL  ENERGY 
EMIN  =  AM1NKEMIN.  ENEM) 

ERKT  =  ABSdENEW  -  EHAD(K))  /  ENEW) 

IF  (ERRT  .LE.  ERROR)  GO  TO  619 
ERROR  =  ERRT 
KME  =  K 
EME  =  ENEW 

619  EHAU(K)  =  ENEW 

620  CONTINUE 

IF (AMOD( CYCLE# PRINTS) .EQ.O.) 

1 WRITE  (6.8)  ITER.  ERROR#  KME.  EME 
IFUMOD(CYCLE.PRINTL)  .NE.O. )  GO  TO  635 
IF  (OBGPHT  .EO.  0.0)  GO  TO  635 
WRITE  (6.9) 

WHITE  (6.11)  (XG(K).  K=2»KMAX> 


WHITE  (6.11)  (XG(K).  K=2»KMAX> 

WRITE  (6.10) 

WRITE  (6.11)  (EHAO(K).  K=2.KMAX) 

635  GO  TO  640 

SI  =  13.0635 
CALL  UN'LE 

640  CALL  OVCHK(KDMY) 

GO  TO  (641.  645).  KOMY 

641  SI  =  13.0641 
CALL  UNCLE 

645  ITER  =  ITEH  ♦  1 

IF  (ITER  .LE.  ITHMAX)  GO  TO  648 
SI  =  13.0646 

CALL  UNCLE  _  ^ 

646  IF  (ERROR  .GT.  EHHCHT)  GO  TO  590 
CALCULATE  FLUXES.  USING  XA  ANO  XB  FOR  STORAGE 

DO  660  1=1.  I MAX 

K  -  1  ♦  1 
M  S  K  -  IMAX 
00  680  J  =  1.  UMAX 

IF  (J  .tO.  1)  GO  TO  650 

XA (K )  s  KUZ(J)  *  ALAMH(K)  *  (ERAD(M)  *  ERAD(K)) 

GO  TO  655 

650  IF  (BCUTAG)  651.  652.  652 

651  XA (K )  =  0.0 

652  XA(K)  =  2.052E12  *  BUB  -  1.5E10  *  EHAD(K)  *  BETAB(I) 

655  IF  (I  .EG.  1)  GO  TO  660 

X6(K)  =  RUR(I)  *  ALAMV(K)  *  (ERAD(K-l)  -  ERAD(K) ) 

GO  TO  665 
660  XB(K)  =  0.0 
665  K  =  K  ♦  IMAX 
M  S  M  ♦  IMAX 

680  CONTINUE 

DO  690  1=1.  IMAX 

K  =  1  ♦  1 
N  =  K  ♦  IMAX 
DO  690  J  =  1.  JMAX 
FABV  =  XA(N) 

IF  (J  .NE.  JMAX)  GO  TO  683 
IF  (BCATAG)  681.  682.  682 

681  FABV  =  0.0 

GO  TO  683  .  . . 

682  FABV  =  ••2.052E12  *  BBA  ♦  1.5E10  •  ERAD(K)  *  BETAA(I) 

683  FRT  S  Xb(Kn) 

IF  (I  .NE.  IMAX)  GO  TO  686 
IF  SBCRTAO)  684.  685.  685 

684  FRT  =  0.0 

6A5  FHT^~  *2>052E12  *  BBL  ♦  3.0E10  *  ERAD(K)  *  XdMAX  )  *  BETAR(J) 

III  eUIkT  *  tS«St ♦  txA(K)"FABV) • *  TAU(I)  ♦  (XB(X)-FRT)  *  PIOY  •  DY(J) 
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K  =  K  ♦  IMAX 
N  =  N  +  IMAX 
690  CONTINUt 
C 

,C  OPTIONAL  tUIT  01-  FLUX  AND  ENERGY  CHANGE  nHA°  ^ 

v 

IP ( AMOO (C YCLE  *PH INTL) . NL • 0 . )  GO  TO  1020  nKAD  !>b7 

IF  (UUGPRT  •LO.  U.O)  GO  TO  *0^0 
WHITE  (0*7) 

UO  1010  K  =  2*  KMAX 
1010  WRITE  (b*6)  K *  X A ( K ) r  XU ( K )  «  ERIK) 

ALVANCt  FHEO*  £»1  CHE  tMERGENT  FLUX.  TEST  FOR  COMPLETION  OF  GROUPS  OHAO  577 

1020  CALL  DVCHK  (KOMT)  nRAD  5 7" 

GO  TO  ( 1050 * 1040 ) *  KUMY 
1040  HNUP=HNU 
HNUP4=HNU* 

IF  ( IHNU~NHNU) 360  *10b0*1050  0HAD  58-1 

LND  FREQUENCY  LOOP  *ORAD  5«A 

c!;?rsrrnn;s;******************************************************°RA°  »5! 

CALL  UNCLE  ™A° 

c  iterate  on  temperature 

1060  GO  TO  (1061 *  106b),  NVEZ  lau 

1061  NVEZ  =  2  ORAD  594 

VEZ  =  NVEZ 

NY  =  NVEZ  °RA°  ®96 

iumm  -  (i  OH  AD  597 


1050  SI  =  13.1050 
l ALL  UNCLE 

C  ITERATE  ON  TEMPERATURE 

1060  GO  To  (1061*  106b)*  NVEZ 

1061  NVEZ  =  2 
VEZ  =  NVEZ 
NY  =  NVEZ 
IHNU  =  0 

DO  1062  K  =  2*  KMAX 

C  WORK.  SOURCE  ttRMS  OMITTED  .  | 

tlNTH  =  THETA (K)  ♦  EH(K)  *  TRAD  /  (AMX(K)  *  XCV(Kl) 
OLDTH(K)  =  THETA(K) 

THETA(K)  =  0.5  *  (OLOTH(K)  ♦  GNTH) 

1062  CONTINUE 

IF  (MFTAG  .EU.  0)  CALL  KAPPA 
GO  TO  200 

1065  IF  (ITAG  .EU.  0)  GO  TO  1067 

00  1066  K  =2*  KMAX 

1066  THETA (K )  r  OLDTH(K) 

1067  RETURN 
END 
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SECTION  V 

THE  METHOD  OF  CHARACTERISTICS  IN  CYLINDRICAL  GEOMETRY 
5.  1.  INTRODUCTION 

As  a  first  step  in  the  development  of  a  true  two-dimensional  trans¬ 
port  code,  a  subprogram  called  TRAN2  has  been  written  to  treat  the  case 
in  which  retardation  and  scattering  can  be  ignored.  TRANZ  is  designed  to 
operate  in  HECTIC,  which  is  a  code  that  calculates  hydrodynamical  prob¬ 
lems  having  axial  symmetry,  and  which  normally  uses  the  diffusion  approx¬ 
imation  for  computing  the  rate  of  flow  of  radiation. 

Consider  a  cylindrical  region  of  outer  radius  R  and  altitude  Z.  As¬ 
sume  that  the  axis  of  the  cylinder  is  an  axis  of  symmetry  for  all  the  prop¬ 
erties  of  the  material  contained  in  the  cylinder  6o  that  all  quantities  of 
interest  can  be  expressed  as  functions  of  two  cylindrical  coordinates,  the 
distance  r  fr&m  the  axis  and  the  altitude  z  above  the  bottom. 

In  TRAN2,  the  transport  equation  is  integrated  along  a  system  of 
characteristic  lines,  called  rays,  which  are  distributed  throughout  the 
system  in  a  more  or  less  uniform  manner. 

5.  2.  THE  LOCAL  COORDINATE  SYSTEM 

Given  any  point  P  in  the  system,  let  there  be  three  associated  unit 
vectors:  k,  a  vector  which  is  parallel  to  the  axis  of  the  system  and  which 
points  in  the  same  direction,  called  "upward,  "  for  all  points  P;  ~j,  a  unit 
vector  parallel  to  the  radial  direction  at  P;  and  T  =  ~j  x  IT. 
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Figure  12.  Coordinate  Vectors 

5.  3.  DISTRIBUTION  OF  RAYS 

A  ray  is  a  directed  line  segment 

L:  T(s)  =  sf2  +  p  for  -S  s  s  <  S 

where  S2  is  a  unit  vector  called  the  direction  of  L  and  p  is  the  midpoint  of 
L.  There  are  groups,  called  combs,  of  rays  lying  in  the  same  vertical 
plane  and  having  the  same  length  2S  and  direction  S2.  The  midpoints  of  the 
rays  of  a  comb  lie  in  a  vertical  line  at  altitudes  z  =  0,  Az,  2Az,  .... 
where  Az  =  Z/m,  m  being  an  integer,  is  the  same  for  all  combs.  If  a 
ccrnb  is  thought  of  as  going  to  infinity  m  both  directions,  then  the  reflec¬ 
tion  of  a  comb  is  the  same  in  both  ends  of  the  system  and  is  another  comb 
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with  the  same  midpoints  and  the  same  ft  x  k.  Thus,  if  a  ray  strikes  the 

end  of  the  system,  its  reflection  is  a  ray  in  the  reflected  comb. 

It  will  be  convenient  to  consider  groups  of  rays  of  another  type, 

called  grids  (see  Section  3.  3).  A  different  definition  is  given  there  but 

they  turn  out  to  be  equivalent.  A  grid  consists  of  all  rays  for  which 

ft  •  k  has  a  given  value  n.  In  view  of  the  symmetry  of  the  system,  it  can 

be  assumed  that  the  midpoints  of  all  rays  of  a  grid  lie  in  the  same  vertical 

half-plane  and  that  their  directions  all  have  positive  projections  on  the 

same  normal  of  the  half-plane,  in  which  case  they  will  be  parallel  to  each 

other.  The  rays  of  a  comb,  being  parallel,  all  lie  in  the  same  grid  and 

2  1/2  — * 

are  separated  by  a  distance  of  Az(l  -  n  )  ,  where  n  =  ft  •  k.  The 

combs  that  make  up  the  grid  are  to  have  a  constant  separation  d(ft)  which 

?  1/2 

will  generally  differ  from  Az(l  -  n  ')  ,  so  that  the  lattice  of  points  in 

which  the  rays  of  a  grid  intersect  a  mutually  perpendicular  plane  will  be 
rectangular. 

By  considering  all  rays  together,  it  ought  to  be  possible  to  infer  the 
essential  features  of  the  distribution  of  the  directions  they  assume  at  some 
particular  radial  distance  r  from  the  axis  of  the  system,  when  the  angles 
at  which  rays  penetrate  a  cylindrical  strip  of  radius  r  and  altitude 
Az  =  Z/m  are  given.  The  reasons  are  clear.  First,  this  cet  of  angles  is 
the  same  for  all  such  strips  because  the  distribution  of  rays  is  periodic 
with  period  Az  k.  Consequently,  it  suffices  to  specify  them  for  one  arbi¬ 
trarily  chosen  strip.  Second,  because  of  the  axial  symmetry  of  the  system, 
rotation  of  the  ray  about  the  axis  leaves  the  ray  in  essentially  the  same 
position.  Third,  it  is  assumed  that  Az  is  so  small  that  moving  a  ray  up  or 
down  through  such  a  distance  will  not  have  a  significant  effect  on  the  ac¬ 
curacy  of  the  results. 

In  terms  of  the  local  coordinate  vectors  i,  j,  k  a^cociated  with  some 

particular  point  on  a  ray,  the  direction  ft  of  the  ray  can  i  expressed  as 

ft  =  fik  +  (1  -  m2)l/2(  £  g£n  ^  +  j  co8  <f>)  -  pfc  +  \i  +  jjj,  where 
2  2  2 

+  X  +  t)  =1,  and,  because  of  symmetry,  0  s  <p  <  *  and  0  £  \  s  1. 
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Figure  13.  Components  of 


Figure  14.  Long  Characteristic 


Figure  15.  Cooidmates  n  and 
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As  the  point  moves  along  the  ray  in  the  directions!,  p  is  fixed,  but  unless 

IX  2  _  i(  0  decreases.  It  can  be  seen  that  sin  <p  =  b/ r,  where  b  is  the  dis¬ 
tance  between  the  ray  and  the  axis.  (See  Figs.  13  and  14.  ) 

The  projection  of  the  direction  S2  of  a  ray  in  the  i-k  plane  is 

S!  -  S!  •  Tf  =  +  aT  =  plT  +  (1  -  p2)1/Z  sin  <pT.  The  distribution  of 

directions  of  rays  that  intersect  a  given  strip  of  radius  r  and  altitude  z 

will  be  isotropic  if  the  distribution  of  their  projections  is  uniform  over  the 

unit  disk  in  the  i-k  plane.  (See  Fig.  15.  )  In  such  a  1,  (i  plot,  the  rays  of 

one  grid  will  lie  in  a  horizontal  line  p  =  C2  •  k  =  const.  As  r  changes, 

H  remains  fixed,  and  since  X  =  (1  -  (X2)1^2  (b/r),  \r  remains  fixed  also. 

Given  two  radii,  r^  and  r^  with  r^  <  r^,  a  ray  with  X  -  X  ^  at  r  =  r£  will- 

have  X  =  X  r  /r  at  r  =  r  (assuming  that  the  distance  b  from  the  ray  to 
2  2  X  * 

the  axis  of  the  system  is  no  greater  than  r^),  so  that  on  a  plot  of  projec¬ 
tions  like  Fig.  15,  moving  from  r^  to  r^  will  cause  a  dilation  of  the  pat¬ 
tern  of  projections  by  a  factor  of  r^/r^.  Those  projections  for  which 

X  2  >  1  -  pt2  correspond  to  points  that  fall  outside  the  unit  circle,  but  they 
are  associated  with  the  rays  for  which  r^  <  b  —  r^.  At  any  rate,  the 
dilation  is  constant  for  all  directions,  so  a  distribution  that  is  uniform  at 
r^  will,  of  course,  remain  uniform  at  r^.  Unfortunately,  the  density  of 
directions  is  much  reduced  at  smaller  radii,  which  is  a  basic  difficulty 
with  the  method. 

The  method  that  is  used  in  TRAN2  to  obtain  a  uniform  distribution 
of  projections  on  the  unit  disk  is  to  choose  N  equally  space  *  values  of  fx, 


M 


2n  -  1 
2N 


—  1 ,  2,  •  «  .  #  N 


and  for  each  \x  to  let  X  =  Cj,  j  =  0,  1,  2,  .  .  .  ,  j  <  (1  -  P2)  /C->  at  r  =  R. 

Then  b  =  RCj/(l  -  p2)l/2  and  d(p)  =  RC/(1  -  \x2)llZ  are  the  dimensions 
of  the  rectangular  unit  cell  in  the  lattice  of  ray6  in  a  grid. 
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5.4.  CALCULATION  OF  INTENSITIES 

Let  V  denote  the  volume  of  zone  i  of  the  mesh  imposed  on  the  Wdro- 
1 

dynamical  calculation  by  HECTIC;  let  L.  denote  the  sum  cr  the  lengths  of 
segments  of  rays  intersected  by  zone  i;  and  set  A^  =  4ttV\ /L^.  Then  A^ 
should  not  vary  much  from  zone  to  zone.  Radical  variations  in  A^  indicate 
that  the  density  of  rays  in  the  grid  is  too  low. 

The  quantity  A.  has  the  dimensions  of  area  and  ia,  in  a  way,  taken 
to  be  a  measure  of  the  cross  section  of  a  beam  associated  with  the  ray. 

The  quantity  that  is  calculated  at  each  point  along  a  ray  is  the  rate  of  flow 
of  energy  through  the  beam  that  the  ray  represents.  In  zone  i  this  is 

-  a  b 

-O'. 8  j  e  i 

J(s)  =  J(o)  e  1  +  A.S.  s  - - - 

'  ii  as 

i 

assuming  that  the  source  S.  and  volume  coefficient  of  absorption  o\  are 
constants.  The  rate  of  energy  deposition  in  zone  i  is  then 


dE. 

=  J<8)ds 


-o.i 

1 

e 


;  +  a.s. 
1  1 


where  the  summations  range  over  rays  that  intersect  zone  i.  The  rate  of 
emission  is,  of  course,  A.S.L.  =  47TS.V.. 

ill  ii 

The  rate  at  which  radiation  passes  through  a  surface  is  just  the  sum 
of  the  J's  over  all  points  at  which  rays  intersect  the  surface. 

It  remains  to  discuss  the  calculation  of  J  at  the  point  at  which  a  ray 
enters  the  system.  At  the  curved  outer  surface,  it  is  easy  to  see  what 
to  do.  The  boundary  condition  must  specify  for  each  strip  of  altitude  AZ 
on  the  outer  surface  what  the  incident  radiant  intensity  is  as  a  function  of 
direction.  By  using  p  and  \  as  coordinates,  the  direction  of  each  incom¬ 
ing  ray  may  be  projected  as  a  point  on  the  unit  disk,  as  was  done  in 
Fig.  15.  The  area  of  the  disk  is  then  subdivided  so  that  in  each  subdivision 
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there  ir  one  point  more  or  less  in  the  center.  The  initial  energy  J  car¬ 
ried  by  a  given  ray  is  then 

J  =  2ttR  A  z  I* 

where  I*  is  the  integral  of  the  intensity  over  the  solid  angle  of  directions 
that  are  projected  on  the  subdivision  of  the  unit  disk  associated  with  the 
given  ray. 

In  TRAN2,  only  isotropic  boundary  radiation  is  presently  handled, 

so  J  =  (4tt^  R  Az  I)/N  ,  where  I  is  the  mean  intensity  on  the  strip  through 

o 

which  the  ray  enters  and  Nq  is  the  number  of  grids,  or,  in  other  words, 
the  number  of  rays  entering  through  a  strip  of  altitude  Az. 

The  situation  at  the  ends  of  the  cylindrical  system  could  be  quite 
difficult  to  treat  by  a  method  analogous  to  the  one  just  described  for  the 
curved  surface.  TRAN2  tr  .ts  two  cases:  (1)  no  incident  radiation,  and 
(2)  perfect  reflection.  But  the  way  to  treat  a  boundary  condition  like  that 
corresponding  to  an  incident  laser  beam  is  to  introduce  an  entirely  new 
set  of  rays  which  have  no  role  ir*  the  calculation  of  radiative  transfer  of 
energy  within  the  system  but  simply  provide  channels  for  the  deposition  of 
external  radiation. 

5.  5.  THICK  ZONES 

Experience  (with  SPUTTER  for  example)  has  shown  that  the  method 
of  characteristics  must  be  applied  with  care  when  the  distance  between 
zone  boundaries  becomes  more  than  a  few  times  the  length  of  a  mean  free 
path.  In  some  cases,  it  might  be  impossible  to  determine  the  distribution 
of  radiation  within  a  thick  zone  because  of  loss  of  information  due  to  mix¬ 
ing,  and  a  reduction  of  the  mesh  spacing  would  be  necessary.  Frequently, 
the  diffusion  approximation  will  give  satisfactory  results  without 

^Freeman,  B.E.,  and  C.G.  Davis,  "Fireball  Phenomenology  and  Code 
Development.  Vol.  Ill,  "SPUTTER  Subroutines  for  Radiation  Transport 
in  Spheres,"  Air  Force  Weapons  Laboratory  Report  AFWL-TR-65- 143, 
General  Atomic  Division,  General  Dynamics  Corporation,  August,  1965. 
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refinement  of  the  spatial  mesh  when  the  transport  approximation  used  in 
TRAN2,  which  assumes  constant  source  strengths  throughout  individual 
zones,  does  not.  For  this  reason,  it  will  be  necessary  to  treat  thick  zones 
by  a  special  method.  An  application  of  the  diffusion  approximation  to 
thick  zones  is  being  developed  as  follows.  When  the  number  of  mean  free 
paths  between  the  boundaries  of  a  zone  is  above  a  critical  value  specified 
by  input,  that  zone  is  classified  as  thick.  When  two  thick  zones  have  a 
common  boundary  surface,  the  rays  intersecting  that  surface  are  ignored 
and  the  diffusion  approximation  is  applied  to  calculate  the  rate  of  transfer 
of  radiant  energy  between  them.  When  a  thick  zone  has  a  boundary  in 
common  with  an  ordinary  one,  the  energy  that  it  radiates  through  that 
surface  is  calculated  and  divided  uniformly  among  the  rays  that  pass 
through  it.  Similarly,  the  energy  coming  in  along  these  rays  from  the 
ordinary  zone  is  all  dumped  into  the  thick  zone,  all  transmission  factors 
being  neglected. 
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SECTION  VI 

FREQUENCY-AVERAGED  TRANSMISSION  FUNCTIONS 

6.1  INTRODUCTION 

In  this  section  a  technique  is  proposed  for  the  implementation  of  the 
treatment  of  the  characteristic  equation  of  radiative  transport  theory  sug¬ 
gested  by  B.  E.  Freeman  (Ref.  1).  A  review  of  the  formulation  is  presentee, 
first,  both  to  establish  notation  and  to  describe  certain  modifications  made 
in  the  originally  proposed  formulation. 

The  characteristic  equation  for  the  intensity  I(^,  t>  v)  of  radiation  of 
frequency  v  in  a  direction  fi  at  optical  depth  r  is 

.  I  {tt,T,v)  +  1(0,  t,  v)  =  B(D,  6,  v)  (69) 

where  B(f2,  0,  v)  is  the  blackbody  source  intensity  for  temperature  0: 

B(fi,  0,  v)dv  =  (ehvfB  -  if1  dp  (70) 

c 

It  is  necessary  to  evaluate  the  integral  of  I(D,  t,  v)  over  prescribed  inter¬ 
vals  offi,  r,  and  Vm  In  systems  with  plane  or  spherical  symmetry,  the 
intensity  as  well  as  the  source  is  independent  of  azimuth,  so  that  the 
integration  over  this  part  of  n  may  be  performed  at  once.  Integration  over 
H ,  the  cosine  of  the  angle  between  the  ray  and  fhe  normal  direction  r,  is 
carried  out  after  integration  along  the  ray,  and  is  not  discussed  in  this  re¬ 
port,  For  the  sake  of  brevity,  the  argument  \i  for  the  intensity  and  source 
functions  will  be  suppressed.  The  element  of  optical  depth  is  defined  by 

dT  =  <7(0,  p,  v)da  (71) 
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where  the  cross  section 

<r(0,p,v)  =  pK'(0,p,v)  =  pK  (0  ,p  ,  v)(l  -  e  hV  ^  )  t72) 

includes  the  usual  correction  for  induced  emission,  and  the  element  of 
length  along  the  ray  is  defined  by 


ds  = 


dr 


in  plane  geometry,  while  in  spherical  geometry  with 

x  =  rfi,  y  =  r\Jl  -  pZ 
ds  =  dx 


(73) 

(74) 

(75) 


Equation  (69)  therefore  becomes 


with 


7“  I(  T,  v)  +  I(t,  v)  =  B(0,  v ) 
dT 


,  „  .  ,  4irhv  .  h vie  ... 

B (0,  v)dv  =  — 2 — 


(76) 


(77) 


If  the  variable  u  =  h  v/O  is  introduced,  then  Eq.  (77)  is  equivalent  to 

B(0,u)du  =  -^| - - -  du 

he  e  -  1 


(78) 


In  terms  of  the  normalized  Planck  function, 

W  (u)  =~  — - 

r  '  u  . 

17  e  -  1 


(79) 


B(0,u)du  =~  04  Wx(u)du 


(80) 


where 


ac  t  „  4tt 

'  15hV 


(81) 


IS 


twice  the  Stefan-Boltzmann  constant;  if  6  is  in  ev  units,  a  =  137.20. 
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For  later  reference,  the  functions 

00 

f(u)  =  J  W^u'Jdu'  (82) 


g(u)  W^u) 

(83) 

and 

4  u 

df  dg  15  u  e 

w2<u'-<ru+^>-4„4  ..,,2 

(83a) 

are  needed.  For  example, 

u2 

f  B(0,u)du=-y-  04  [f(Ul)  -  f(u2)]  (84) 

4* 


u„ 


u_ 


j  du  =  2  ac  03  J  W2(u)du  =  2  ac  fl3  ^(Uj)  -  f(u2> 
U1  U1 

+  g(Uj)  -  g(u2)J 


(85) 


It  is  customary  to  absorb  a  factor  1/c  in  the  definitions  of  B  and  I,  in  which 
case  the  factor  c  does  not  appear  in  Eqs.  (80),  (84),  and  (85), 

Since  the  temperature  varies  with  position,  and  therefore  with  optical 
depth,  the  notation  B(t,  v)  may  be  introduced  in  place  of  B(fl  ( t)»  v)>  The 
integral  with  respect  to  t  of  Eq.  (76)  over  an  interval  tq  <  T  <  Tj  is  then 


-<VT0>  1 

I(t  •  ,)  •  Hr  ,  »)  e  + 

1  o 


/  BlT 


»  V )  e 


■(Tj-T) 


dT 


(86) 


Assume  that  B(t,i>)  is  linear  in  t  over  this  interval  with  slope  9B/8t;  then 
KTj,  v)  =  B(t^«  v)  -”+  [i(tq,  v)  -  B(tq,  v )  +■“]  e  1  °  (87) 
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The  first  two  terms  on  the  right  side  of  Eq.  (87)  represent  the  diffusive 
intensity.  The  quantity  in  brackets  represents  the  streaming  (nondiffusive) 
ar^  intensity  at  t^,  which  is  attenuated  by  an  exponential  "transmis¬ 

sion  function"  on  the  way  to  T^. 

6.2  FREQUENCY  AVERAGING  FOR  THE  TRANSPORT  EQUATION 

The  problem  to  be  discussed  is  the  way  in  which  the  integration  of 
Eq.  (87)  over  the  frequency  v  should  be  carried  out.  The  simplest  approach 
is  just  to  substitute  frequency-averaged  optical  depths  for  the  variable  T 
in  Eq.  (87)  The  appropriate  average  for  3B/3t  is  8B/9t  R,  where  tR  is 
the  Rosseland  mean  optical  depth  (see  Eq.  (93)  below).  However,  the 
Rosseland  mean  is  frequently  inappropriate  for  use  in  the  exponential  trans¬ 
mission  function.  The  Planck  mean  defined  by  Eq.  (94)  below  is  valid  in 
the  limit  of  an  extremely  thin  region  (tP  «  1),  while  the  Rosseland  mean 

is  preferable  in  the  thick  limit,  where  the  transmission  function  is  rela¬ 
tively  small  anyway.  Other  means  can  be  constructed  from  the  Planck  and 
Rosseland  means,  such  as  the  geometric  mean  >/ tPtR  or  the  mean  pro¬ 
posed  by  Sampson  (Ref.  2): 


b  +  t 


where  b  is  an  adjustable  parameter  of  order  unity.  Without  doubt,  such 
means,  particularly  the  last-mentioned,  are  useful  expedients  in  many 
cases,  but  experience  has  shown  that  they  must  be  used  with  some  caution. 
In  this  report,  Eq,  (87)  is  treated  in  a  more  systematic  manner,  as  in 
Ref.  1. 

The  medium  is  divided  for  computational  purposes  into  zones  by 
interfaces  whose  coordinates  are  denoted  by  r..  A  subscript  i-1,  i,  i+1, 
etc. ,  on  a  quantity  implies  that  the  quantity  is  to  be  evaluated  on  an  inter¬ 
face,  while  a  subscript  such  as  i-1/2  or  i+1/2  implies  evaluation  either 
for  the  zone  as  a  whole  or  for  an  interior  point  in  the  zone.  This  point  will 
be  assumed  to  be  the  midpoint  of  the  ray,  so  that 


» 
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s. 

1 


s 


i- 1/2 


8i- 1/2  "  8i-l  =  6i-l/2 


(88) 


is  the  half -width  of  zone  i- 1/2,  measured  along  the  ray.  In  particular,  the 
density  p.  and  temperature  0^  are  g*ven  quantities  associated  with 
each  zone  or  zone  midpoint,  and  it  is  desired  to  calculate  intensities  (L ( v) 
at  the  interfaces.  It  is  therefore  natural  to  carry  out  the  integration  of 
Eq.  (86)  in  half-zone  steps,  within  each  of  which  B(t,  v)  can  be  assumed 
linear  in  t.  Thus, 

I(T.,  v)  =  B(t.,  v)  -  (f“).  +  [  ^Ti-1/2’  *>  ~  B(Ti-l/2'  v) 

.  3B.  1  "(Ti"Ti-l/2)  (89) 


I(Ti-l/2’  V)  "  B(Ti-l/2’  ~  (9t  }i-l  + 


KTi-l,  v) 


B(Ti_l'  ^ 


"(Ti-l/2“Ti-l) 


(90) 


In  order  to  carry  out  the  integration  of  Eqs.  (89)  and  (90)  over  fre¬ 
quency,  three  further  assumptions  are  required.  First,  it  will  be  assumed 
that  cross  sections  have  a  piecewise-constant  dependence  upon  position. 
This  is  done  for  simplicity,  since  it  provides  for  a  piecewise-linear  rela¬ 
tionship  between  position  and  optical  depth  which  is  more  convenient  than 
a  quadratic  or  other  type  relationship  and  is  no  less  consistent  with  the 
available  information.  Second,  the  cross  sections  will  be  evaluated  at,  or 
at  least  associated  with,  zone  boundaries  rather  than  zone  midpoints  (using, 
for  example,  an  interpolated  density  and  temperature  at  each  boundary). 
This  choice  is  made  primarily  for  experimental  reasons,  but  is  guided  also 
by  the  physical  consideration  that  the  opacity  is  ultimately  needed  for  the 
calculation  of  radiative  flux  across  zone  boundaries,  and  is  in  this  sense 
most  naturally  defined  as  a  boundary-centered,  rather  than  a  zonal,  quan¬ 
tity.  There  is  probably  no  single  best  method  for  evaluating  opacity  at 
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zone  interfaces;  in  some  cases  it  might  suffice  to  use  the  lesser  of  the 
adjacent  zone  opacities.  If  interpolation  is  to  be  done,  however,  it  is 
simpler  and  probably  less  dangerous  to  interpolate  temperatures  and  densi¬ 
ties  than  to  interpolate  zonal  opacities  directly.  The  formulation  adopted 
is  in  any  case  quite  general.  The  most  economical  method  would  pre¬ 
scribe  the  cross  section  as  constant  from  one  midpoint  to  the  next,  but 
allowance  can  also  be  made  for  possible  interface  discontinuity. 

The  third  assumption  is  made  purely  for  convenience.  It  will  be 
assumed  that  I(r,  v)  has  a  frequency  dependence  within  each  group  propor¬ 
tional  to  that  of  B(t,  v).  The  validity  of  this  assumption  depends  on  the 
variation  of  opacity  within  the  group,  and  cannot  be  taken  for  granted  in  a 
few-group  calculation. 

The  following  definitions  are  needed: 


B.. 

ij 


-s 


j+1 


v. 

J 


B(  6^,  v)dv,  the  group  source 


(91) 


iJ 


■/ 


j+1 


I(i\,  v)dv,  the  group  intensity 


(92) 


R 

ij 


/ 


"j+1 


dB.  ./d0 
ij 


1 


(«, 


-,  the  group  Rosseland 
mean  cross  section 


o(  6.,  p.,  v)  d 0  0. 

j/.  i  l  i 

3 


dv 


(93) 


v . 

a..  =  f  ^  +  1  B(o . ,  v)<j(o.t  P.»  v)dv!&. .  ,  the  group  Planck 
J  ••  1  11  1J  mean 


v . 
J 


(94) 


V4>  -L 


"j+i 


B(0.,  v)e 


<t(  6.,  P.»  v)6 


d  v/B. .  ,  the  Planck  trans- 
mission  function 


(95) 


and 
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j+1 


V6>=  j 


1 


<r(0 p.i  v)  d0  6 . 

v.  1  1  1 

J 


(?-)„  e  11  d,/(-  (96) 


p  de 
aij 

the  Rosseland  transmission 
function. 

.th 


Equations  (89)  and  (90)  then  may  be  integrated  over  the  j  frequency 
group;  notation  is  further  specified  as  follows: 


hj  =  Bij  "  (dTR*  ij  +  {Ii-l/2,j  "  Bi-l/2,  j)  Sij  (6i-l/2) 


.dB 


(97) 


^-1/2, j  =  Bi- 1/2, j  ’  (drR}  ul>  .  +  (Ii-l  J  "  Bi-1  <6i-l/2> 

+  0fc-I.jTUj(W 


(98) 


Since  I  is  needed  only  on  interfaces,  j  ma^  e^m^natea  *rom 

(97)  and  (98): 

'  i-l,j  [*  “  Ti-l.J  f*i-l/2,]l  Sij  <Si-l/2) 

d  * 


(99) 


It  remains  to  discuss  the  definitions  of  the  quantities  0.,  B.^  and 

(dB/dTR)..  .  The  interface  temperature  may  be  defined  by  some  mean 
value  such  as 

1/4 


e 


^gi-l/2  +  ei+l/2  ^ 


(100) 


140 


AFWL-TR-66-108,  Volt 


TiJ<6>  = 


i+l  _ 1_  .dB.  ± 

a(«,P.  »)  We  *  K  d9 

v3  ij 


the  Rosseland  trau^nission 
l  unction. 


til  r 

Equations  (89)  and  (90)  then  may  be  integrated  over  the  j  frequency 
group;  notation  is  further  specified  as  follows: 

St  -  ij  +  (Ii-l/2.j  '  ®i-l/2.j)  %  ‘Vi /*» 

+  .  T.”(6.  1/7.  (97) 

'dTR'ij  ij'  1-1/2) 


^i-1/2,  j  i-1/2,  j  (dTR\.lfj 


+  (I.  .  .  -  B.  .  .)S+  (6.  .,-) 

' i-l,j  i-l.J  i-l. J  1-1/2 


.  <5vl.\  t"*"  (6  )  (98) 

+  (^R,i-l.jTi-l.j(  i-l/2’ 

Since  I  is  needed  only  on  interfaces,  j  maY  be  eliminated  from  Eqs. 

(97)  and  (98): 

VVl'W- 

-§i>l.l.j[I-TUl.j‘W]l  S«  (Si-l/2) 

-  [ 1  -  tm  <wl  (99) 


It  remains  to  discuss  the  definitions  of  the  quantities  3.,  P.,  B.^  and 
(dB/drR)..  .  The  interface  temperature  may  be  defined  by  some  mean 


value  such  as 


/  4  4  \  1/4 


(100) 


V-  VMJ 
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which  is  used  in  MOTET.  Again,  no  single  prescription  can  be  expected  to 
represent  all  cases  equally  well.  Provision  should  be  made  for  alternative 
methods  in  special  cases;  one  such  method  would  be  use  of  the  zone  temper- 
atures  on  each  side  of  the  interface.  The  +  and  -  superscripts  on  o  ,  S, 
and  T  indicate  possible  use  of  such  a  discontinuous  interface  treatment  (for 
temperature,  dens  ivy,  or  both). 

The  interface  density  may  be  evaluated  either  by  position  interpola¬ 
tion  or  by  use  of  a  mean  value  such  as  the  ratio  of  the  combined  masses  of 
the  two  zones  to  their  combined  volume.  Again,  provision  for  a  discon¬ 
tinuity  at  the  interface  is  desirable. 

Simple  and  consistent  definitions  of  B. .  and.  (dB/dr  )ij  are  obtained 
by  use  of  source  functions  evaluated  at  zone  temperatures  with  Rosseland 
optical  depth  interpolation: 


_  Bj+l/2,j  '  Bi-l/2,j 

'  r\.  r+  ,  ST” 

dr  ij  a  . .  6 or. .  6.  ,  ,, 

ij  1+1/2  ij  i-l/2 


(101) 


VBi-l/2.i  +  <“K>. 

dr  ij 


'  Bi+l/2,j  ‘  .  R  .. 

dr  ij 


R+  A 

(7.  6 


i+1/2 


(102) 


_  R 

It  should  be  noted  that  both  B..  and  (dB/dT  )  ij  are  single -valued,  regard- 

^  1J  _ 

less  of  whether  or  not  cr..  is,  and  further  that  B. .  must  be  evaluated  bv 

,  1J 

means  of  Eq.  (102),  and  not  evaluated  at  the  interface  temperature  0..  The 
latter  procedure  would  yield  B„  as  defined  in  Eq.  (91),  and  would  be  incon¬ 
sistent  with  Eq.  (101),  which  is  based  upon  an  assumption  that  B  is 
continuous. 

The  present  formulation  closely  resembles  that  of  Ref.  1,  differing 
chiefly  in  that  opacities  are  evaluated  at  interfaces  rather  than  at  zone 
midpoints.  This  variation  is  intended  to  facilitate  a  more  versatile  treat¬ 
ment  of  radiation  front  propagation  with  little  or  no  accompanying  increase 
in  computation. 
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The  cross  section  tr,  considered  as  a  function  of  v,  or  of  u  =  h v  I  6, 
has  too  detailed  a  structure  to  permit  approximation  in  one  stage  to  be  a 
practical  procedure.  Subintervals  Au^  are  therefore  defined  which  are 
sufficiently  small  so  that  within  them  the  variations  of  the  Planck  and 
Rosseland  spectrum  functions,  W^(u)  and  W^(u),  are  negligible.  The 
opacity  within  these  subintervals  may  or  may  not  show  considerable  varia- 
tion.  In  any  case,  it  can  be  at  least  partially  described  by  the  direct  and 
inverse  means  (Ref.  3) 

<r|  =  J  cr(u)du/iu,  (103) 

Jtv  A  ** 


J  du/a(u) 
A\ 


(104) 


which  are  in  effect  microscopic  Planck  and  Rosseland  means,  respectively. 

2  4 

The  number  of  these  subintervals  is,  typically,  of  order  10  to  10  . 

The  number  of  groups  employed  in  transport  calculations,  however,  is  of 

order  1  to  10  .  It  is  not  generally  possible  to  neglect  the  variation  of  W^u) 

and  W  (u)  within  these  groups.  Thus,  for  the  subintervals  Au^  contained 

within  a  croup  u.  —  u  <  u. one  defines  normalized  Planck  and  Rosseland 
J  J+l 

weights: 


«  V  -  £,\ +  aV 

k  =  f(u.) 


J 


^j+l1 


IH\)  -  +  g(uk)  -  gK  +  Auw)1  Iv  j, 

Rk=  J[f(U|)  -f(u^  +  Au t)  +  g(uf)  -  g(u2  +  Auf  )]  /a* 


(105) 


(106) 


The  group  Planck  and  Rosseland  cross  sections  and  transmission  functions 
are  thus,  respectively, 
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Du 

b 

>A 

(107) 

k 

*R=y 

lj  Z, 

(108) 

k 

d 

-(7  x 

sij(x)  =  2 

k 

(109) 

k 

i 

~a  i,x 

V*>  ■  2 

k 

Rk6 

(110) 

k 

These  are  the  discrete  analogs  of  Eqs.  (93)  through  (96). 

Although  Eqs. 

(107)  and  (108)  are  essentially  exact,  Eqs.  (109)  and  (110) 

are  already  ap- 

proximations  which  are  accurate  only  to  first  order  in  x. 

Even  so,  they 

are  still  far  too  cumbersome  for  use  by  the  transport  routines,  which  re¬ 
quire  representations  S„(x)  an<l  T„(x)  of  S„(x)  and  T„(x)  involving  at  most 
five  or  six  parameters  each,  with  the  use  of  exponential  or  similar  func¬ 
tions  kept  to  a  minimum.  On  the  other  hand,  the  optical  thickness  of  zones 
employed  in  transport  calculations  is  unrestricted,  so  that  the  parameteri¬ 
zation  must  not  fail  in  a  gross  manner  for  any  nonnegative  x. 

6*3  PARAMETRIC  REPRESENTATION  OF  TRANSMISSION  FUNCTIONS 
The  method  to  be  described  employs  piecewise-Iinear,  and  linear 
rational  approximations  to  the  logarithm  of  the  transmission  function.  Both 
functions  (109)  and  (110)  are  of  the  form 

-  <7  x 

F(x)  =2  Qj^  e  (111) 

k 

with 

F(0)  =  2°k  =  1  (112) 

k 

In  accordance  with  Eq.  (107)  or  (108),  define 
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-F'(O)  =£«.**  5 


(113) 


The  (Planck  or  Rosseland)  optical  depth  variable  is  thun 


Let 


T  =  crx 


(114) 

(115) 


Then  the  expansion  of  (111)  in  powers  of  T  is 


,  cr2  2 

F(x)  =  F(t)  =  1  -  T  +  1/2  ~rT 

a 


The  approximation 


with 


-  -tH(t) 
F(t)  =  e  '  ' 


2<r 


0  S  T  <  T. 


(116) 


(117) 


(118) 


agrees  with  Eq.  (116)  to  second  order  in  t.  For  t  not  small  compared 
with  unity,  this  approximation  can  be  very  poor.  The  general  linear  fit 
is  therefore  used: 


H(tJ  -  H(t  ) 

H(t)  =  H(rJ  + - - - — =-(r  -  T.i,  T  S  T  <  T. 

2  t3  -  t2  2  1 


(119) 


where  Tj  is  the  abscissa  of  the  intersection  of  the  two  lines  (118)  and  (119), 
r 2  and  are  prescribed  values  such  as 

r2  =  o-/crP  ,  T3  =  ff/ffR  (120) 

and 

H(t2)  =  -In  F(t2)/t2  ,  H(t3)  =  -In  F(t3)/t3  (121) 
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P  R 

(It  is  assumed  that  a  >  a  so  that  >t^‘  ^  scattering  is  included  in 
R  P 

a  but  not  in  a  ,  this  condition  may  not  be  satisfied  and  a  different  pre¬ 
scription  of  t 2  and  should  be  used).  Finally,  for  t  -*■  «  the  approxima¬ 
tion  used  is  the  linear  rational  function 


H(T)  . 


VV 

b,  +  b.  t 
3  4 


T  S  r  <  oo 

3 


(122) 


where  bt  -  H(t3)H(t4)t4(t4  -  +  H(t4)t3  -  H(t3)t4 


=  H(t3)  -  H(t4) 


=  t3  +  t^[h(t4)t4  -  H^T3^T3  " 


=  T4b2 


H(t4) 


min(^k) 

*  -lnF(T4)/r4 


This  function  has  the  properties 
H(t3)  =  H(t3) 

H(t4)  =  H(t4) 

and  lim  tr  H(r)  =  lim  a  H(t)  =  min  (a  ),  where  min  (a,  )  is  the  smallest  of 
r—0^  ^  T  00  k  K 

all  the  or  in  the  group. 

The  parameterization  described  requires  storage  of  12  parameters 

on  a  "DIANE"-type  data  file  for  use  by  the  radiation  transport  routines; 

for  example;  crP  ,<rR,  min(akd),  min^1), T P,  Tj,  HP(r1),  H^Tj),  HP(t3), 

H^(t3),  HP(t4)»  and  H^(t4).  The  accuracy  of  fit  attainable  with  these 

parameters  has  been  investigated  for  a  few  artifical  examples.  The  poorest 

P  JR 

fit  generally  occurs  in  the  S  function  for  cases  in  which  o  »  a  ,  for 
widths  6  =  x  such  that 
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1  1 

^P«  X<<"R 
a 

In  extreme  cases  of  this  type  the  fit  is  still  usually  within  a  factor  of  two. 

p  R 

If  <7  and  <7  are  within  one  or  two  orders  of  magnitude,  the  worst  fit  is  of 
the  order  of  10%.  For  depths  small  compared  with  a  mean  free  path,  the 

fit  is  generally  excellent,  although  in  the  worst  cases  the  T  function  may  be 

R  d 

in  error  by  10%  or  so  near  cr  =  0.  5.  Since  the  difference  between  min(<7k  ) 

and  min(<7  X)  is  not  significant  except  at  very  large  depths,  it  would  be  poss- 

K 

ible  to  use  a  single  value  for  both,  reducing  the  required  number  of  param¬ 
eters  to  11.  Still  fewer  parameters  could  be  used  if  the  resulting  loss  of 
accuracy  is  considered  acceptable. 

A  number  of  other  parameterizations  were  explored,  including  fitting 
by  sums  of  exponentials  and  v«  rious  techniques  using  orthogonal  polynomials 
and  higher  order  rational  approximants  to  the  logarithm  of  the  transmission 
function.  Of  those  investigated,  only  the  fit  by  a  sum  of  exponentials  appeared 
at  all  satisfactory,  and  the  technique  described  above  offers  comparable 
results  with  much  less  computational  time  involved.  Undoubtedly,  the  pre¬ 
sent  parameterization  can  I  '  further  improved,  but  it  is  believed  that  this 
type  of  approach  offers  acceptable  accuracy  along  with  reasonable  economy 
in  the  handling  of  data  better  than  most  others. 
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